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ABSTRACT 


This thesis explores the feasibility of developing a 
Gaeticadinnalcplay Simulator on the H/Z-100 microcomputer. A 
prototype simulator is implemented in ZBASIC, some graphics 
functions routines are implemented in Macro-86, and timing 
and performance measurements are performed for comparison. 

Listings of the programs developed are presented, as 
well as instructions for their effective use. Directions 
for the modification of the code, and suggested profitable 
areas of exploration and further development are included. 

It is concluded that a tactical display simulator is 
feasible, and that the final implementation should be in 


Macro-86. 
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I. INTRODUCTION 


A. BACKGROUND 

The Naval Postgraduate School has arranged to purchase 
approximately fifty Zenith H/Z-100 microcomputers for the 
microcomputer laboratories of the Computer Science Depart- 
ment. There were numerous reasons for that particular 
microcomputer to be chosen, one of which is the fact that 
it possesses a dual micro-processor architecture [Ref. l1: 
p. E.1]. It has the 8085, an 8-bit microprocessor, which 
is typical of a simple architecture and instruction set, 
and able to run software under the CP/M operating system. 
It uses a simple, single-segment model of memory. The 
H/Z-100 also comes equipped with the newer and more 
powerful 8086, a 16-bit microprocessor, with an eight bit 
memory interface. It makes use of a more complex 
architecture, more internal registers (some useable as 8- 
or 16-bit), extended addressing modes, and a more complex 
memory management scheme, with segmentation registers. 

Another attractive feature of the H/Z-100 is its 
graphics capability. In the character display mode, the 
H/Z-100 can display 25 rows of 80 characters. A very 
important graphics ability is the degree of resolution 
provided. The H/Z-100 provides high-resolution dot 


addressability, with a dot resolution of 640 horizontal 
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dots by 225 vertical dots. In the interlace mode, the H/2Z- 
100 provides 640 x 512 pixels. It also comes equipped 
with three 64K pages of video RAM memory, eight colors in 
the color option with a color monitor, or eight grey scale 
levels with the color option and a monochrome monitor , 
light pen circuitry, and the potential for two pages of 
video display to be stored simultaneously.[Ref. 1: p. 
Hes AS a natural consequence of this purchase, the 
micro-computer laboratory is interested in developing a 
variety of special-purpose software products to maximize 
the value of these computers. A primary use for these 
software products will be in courses which emphasize 
tactical applications of computers. Graphical displays are 
a Peeal Sane  antegral part Of tactical appiicatiuns. 
Software products which provide Graphical support for 
tactical applications and demonstrations of interactive 
Graphical displays that enhance tactical decision-making is 
very 


desirable. 


Boer eRATING SYSTEM, SUPPORT 

The operating system provided with the H/2Z-100 
computers purchased by the Naval Postgraduate School (NPS) 
is the Microsoft Disk Operating System. It 1S our opinion 
that the MS-DOS operating system iS a powerful and 
practical one. EET PrEeviIdeswine USemewith 54 commands; 2/7 


resident commands and 27 transient commands [Ref. 2: pp. 
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9.2-5.4]. Several of these commands are useful tools for 
the software developer. 

There is a deficiency in the MS-DOS operating system, 
however, related to graphics-oriented applications. There 
is virtually no operating system support of graphics 
functions provided by MS-DOS, the one exception being the 
CLS (clear screen) command [Ref. 2: p. 5.2]. 

There is a crucial need for graphics function support 
of tactical applications involving real-time displays. The 
system is required to provide a current graphical display 
of the tactical situation at the same time that changes in 
that tactical situation are being evaluated. Computations 
of the time-dependent tactical elements, display of the 
current Situation and acceptance of user inputs to the 
system must be performed simultaneously, or nearly so. The 
tactical display, which may be changing rapidly in the case 
Or high-speed targets such as missiles and slowly where 
Stationary and slow-moving tactical units are concerned, 
must be updated with a minimum frequency of once per second 
to be useful. This requirement generates the need (for 


effective, special purpose, time efficient code. 


Ca -URBOSE 

We propose, aS an initial system development project to 
meet the purposes stated above, the development of a Naval 
Tactical Data System (NTDS) display simulator, to be 


implemented on the H/Z-100 microcomputer. A rapid 


Le 


prototype of a display simulator will be developed, to 
provide guidelines for developing graphics support tools 
for tactical systems applications such as those mentioned 
earlier. The systematic approach used in developing this 
prototype will demonstrate many of the considerations that 
graphics support tools must entail. The displays this 
prototype provides will be illustrative of typical tactical 
displays that these applications require. Portions of the 
prototype will be transferred into more time efficient 
code, in order to ascertain the order of magnitude of 
efficiency gain that may be expected and to demonstrate the 
transfer process. 

The development of an entire NTDS display simulator is 
a major undertaking. Although it sounds good as a concept, 
the logical first step would be a preliminary feasibility 
Study. This study will be an initial look at the 
feasibility of developing an NTDS display simulator on the 
H/Z-100. We will be attempting to ascertain that 
feasibility by exploring algorithms necessary to support 
the graphics sub-system of such a system, since graphic 
display is an integral part of the system being simulated 
and will largely determine the real-time aspects of the 
system. We will develop code for portions of the graphic 
display subsystem, and perform some performance tests on 
that code. We intend and hope for this to be the basis for 
the development of a graphics system which permits NTDS 
display subsystem simulation. 
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D. THESIS ORGANIZATION 

In Chapter II we present algorithms devel ped for this 
initial PLO JeCee We describe the symbol generator 
subsystem algorithm in detail. Design focuses primarily on 
the symbol generator itself. We also provide some of the 
design considerations made, brief explanations of reasons 
for specific choices, and discuss some ramifications of 
alternatives. Algorithms employed to develop sample NTDS- 
type displays are also presented here. 

Chapter III describes the code developed and debugged 
to date for the display simulator. We have a successful 
prototype implemented in ZBASIC and some initial routines 
for graphics support in Macro-86 assembler language. 

The next chapter, Chapter IV, is devoted to efficiency 
issues. Much of the code provided in the Appendixes has 
Sacrificed eE€fricrency PTorvelanley We felt that, ina 
ground-breaking project such as this one, the use of easily 
traceable logic in the code was more valuable than the use 
of tricky code which might execute more rapidly. Initial 
performance tests and timing runs are summarized. 

The final chapter, Chapter V, provides suggestions for 
the most effective use of what has been done to date. It 
also suggests some of the potential future directions’ for 
follow-on work. That is where the conclusions of this work 
are presented. The focus iS on what has been learned that 


may be of value to other students and researchers. 
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Appendixes A-M are listings of the ZBASIC programs 
developed to date as a working prototype of the NTDS 
display simulator. A User's Manual which gives a line-by- 
line description of the programs in Appendixes A-M, and 
important considerations when modifying the code, is 
contained in Appendix N. Listings of Macro-86 programs are 
in Appendixes O-U. Appendix V is a User's Manual for the 


code in those Appendixes. 


pe 


If. ALGORITHMS 


A. BASIC SIMULATOR ALGORITHM 
To perform the functions Of amgN@Deeerscplayesi nul eer, 
we must implement an algorithm similar to that in Figure 
Ze THe wl nt hedsizZat Vom depends somewhat on the 
implementation chosen. The display Simulator requires that 
some basic items be displayed aS a minimum, such as a 
working area on the screen (window), a reference grid, 
possibly some land or other special areas within the window 
and basic symbols. A more detailed explanation of what is 
displayed in our prototype is contained in the next chapter 
On code. 
begin 
initialize display, system 
repeat 
repeat 
delay 
update all tracks 
until (there is a user service request) 
perform service requested 
until (user requests exit) 


end 


Figure 2.1 Basie Simularvometes Gienn 


The user service requests are also defined by the NTDS 
environment. We have chosen six NTDS-type user functions 
to implement, two of Which are related to use of this 
Simulator. Other functions may be added to the simulator 


easily enough, as explained in the code chapter. They are 
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not limited by those required by the simulation. The 
System, particularly as a graphics subsystem, is eventually 
able to support multiple purposes, including services that 
are not NTDS' related. The services implemented in the 
prototype are a sampling of services, and are not meant to 


be exhaustive, 


B. EXPANDED SYSTEM ALGORITHM 

The basic algorithm has been expanded through a series 
of step-wise refinements to the algorithm shown in Figure 
2.2. The intervening steps are not included as they would 
not provide sufficient information that iS not contained in 
the final version to warrant inclusion. 

In some statements greater detail than is normally 
associated with algorithmic language has been brought 
forward to the algorithm itself and its explanation. This 
1s to begin to acquaint the reader with the prototype. 
Some sections OF the clleGy(@ an lete talline whether they are 
represented as single or multiple statements in Figure 2.2, 
are expanded even further, where clarification was felt to 
be necessary or desired. Where greater expansion has_ been 
provided it is the aim of the author to provide insight 
in o the decision-making process during the design of such 
a prototype system. There has been more effort expended in 
attempting to provide clear logic in the algorithms and 


code presented than in driving for efficiency. 
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begin 


end 


clear screen 

initialize variables, tracks 

display function key menu 

read (Window parameters) 

display window 

read (# of land masses to display) 

if (# of land masses > 0) then 
display land masses 

read (Y-axis parameters, X-axis parameters) 

display coordinate axes 

read (# of tracks) 

if (# O£ tracks > OnmeEnien 


begin 
for (# tracks) times 
begin 
read (current track parameters) 
look-up symbol to match parameters 
make track active 
calculate incremental movement of track 
look-up speed leader to match parameters 
end 
end 
repeat 
While (no user input) 
begin 
update all tracks 
delay 


end while 
if (user input is a function key) then 
do indicated function 
until (user input = halt) 


Figure 2.2 Expanded System Algorithm 
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foe spanston Of Display Gand Masses” 
Prguge 2.3 1S ‘ah expansion of the “display land 
masses" statement of the Expanded System Algorithm. It is 


shown because the lack of true dynamic memory allocation in 


the prototype created special problems. This algorithm 
expansion illustrates one type of solution to those 
problems. The problem is one that will not be evident in 


the programming language which will be used in the future 
to fully develop the graphics’ system. We accepted the 
problem here, and dealt with it in this manner, in order to 
develop the rapid prototype. 

In this prototype we provide for three land masses. 
The elements of the PTS array must be initialized, because 
they are used to determine the amount of memory to allocate 
for the land mass arrays. AS a consequence, multiple 
iterative loops are contained in the algorithm. Because 
they are pre-initialized, the elements of the PTS array are 
used as flags to indicate when to stop drawing land masses. 
The lower bound of two was selected to allow this module to 
draw even tiny representations on the display. 

This is an example of a design decision point. 
There are other ways that the lack of dynamic memory 
allocation could have been handled. This is not the most 
efficient choice, but it presents uncomplicated logic. The 
data in this solution establishes a pattern. The number of 


points and color for the maximum number of land masses the 
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begin 
for (# land masses) times 
read (PTS, LCOL) (# ‘DoOints ;, “COrormmror 
each land mass ) 
for (PTS(1)) times 


read (X, Y) ( DPOINES fFormeuANDie 
for (PTS(2)) times 

read (X, Y) ( points tor eLANDe > 
for (PTS(3)) times 

read (X, Y) ( points for LAND3 ) 
draw LANDI1 
read (CENTX, CENTY) (Dingertomnoc. |) 


paint LAND] 


if (PTS(2)) >= 2 then (Gait there, 1s ANDO 
begin 
draw LAND2 
read (CENTX, CENTY) 
paint LAND2 
end 
else end 


if (PTS(3)) >= 2 then (if there is LAND3) 
begin 
draw LAND3 
read (CENTX, CENTY) 
paint LAND3 
end 
end 


Figure 2.3 Display Land Algorithm 


20 


system will handle must be provided as data, in order to 
allow dimensioning of arrays. Since a number of points for 
any dummy land (one point) is required in the data, this 
solution requires that each dummy land mass have that one 
point in the data. This also ensures that a user _ who 
wishes to modify one data file rather than generate a new 
one has created space in the data module for the added 
land masses. 

We note again that these are problems that will be 
nonexistent in’ Ada, as well as in Macro-86 graphics 
PumecelOns . They result from the use of ZBASIC in this 
prototype, which was selected simply for the rapidity with 
which a working demonstration of the display simulator 
could be developed. This provides early feasibility 
determination, guidelines for future development, and 
demonstrates graphics concerns. 

2. Expansion of "Display Coordinate Axes" 

This algorithmic step is expanded for those who 
have little or no computer graphics background. The simple 
algorithm shown in Figure 2.4 deals with the problem of 
maintaining the proper aspect ratio between the horizontal 
and vertical axis scales. It is based on a program cited 
in the code and written by James C. Adams [Ref. 3: p. 9- 
low ae 

Ricmspecteratilonin= GoMmputer Graphics is the ratio 


of horizontal to vertical on the display. The H/z-100 


72) 


monitor provides 640 pixels in the horizontal direction and 
225 pixels in the vertical direction  [Rer. 2: Powe!) rn 
order for the scale divisions on the two axes to appear 


equal they must have different pixel spacing. 


begin 
calculate horizontal scale 
calculate vertical scale 
draw vertical axis 
draw horizontal axis 
draw horizontal scale divisions 
draw vertical scale divisions 
end 


Figure 2.4 Display Axes Algorithm 


3. Expansion of =&Do Indicated Function’ 

The "do indicated function" is expanded because it 
is a case statement. That fact is not evident by looking 
at the code, since it is written in a language that does 
not provide a case statement construct. 

We considered only partially expanding this section 
of the system algorithm. Case statements are widely under- 
Sstvod, and tend to become repetitive. Since one of the 
concerns of this project is to provide development history, 
and another is to document some decision process in 
practice, we elected to fully expand it. The full expan- 


Sion 1s illustrated in Figure 2.5. 
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begin 
Sase “Lunctlon OF - 
begin 
halt: begin 
clear screen 
restore function keys 
exit system 
end 
suspend/continue: 
begin 
wait for user input 
end 
hook track: 
begin 
if (some track hooked) then 
unhook track 
read (track to hook) 
hook track 
end 
enter track: 
begin 
read (track parameters) 
calculate track movement 
look-up speed leader, symbol 
display track 
end 
modlEy track : 
begin 
if (some track hooked) then 
unhook track 
read (track to modify 
hook track 
for (each track field) 
begin 
ask user 1f OK 
1f not OK then 
make change 
end 
end 
delete track: 
begin 
read (track to delete) 
make track inactive 
end 
end (case) 


Figure 2.5 Do Indicated Function Algorithm 
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Cc. CONCEUSTO! 

These algorithms are simply the rough-hewn blueprints 
for producing the prototyperdisplayesimularor. Conparrmncg 
them with the code in Appendices A-M discloses some of the 
design choices which had to be made during implementation. 
Inspection of the algorithms alone reveals some of the pre- 
thinking that they embody. Knowing the capabilities and 
limitations of the target system and the programming lan- 
Guage influenced the construction of the algorithms. In 
some instances that was beneficial, in others less so. 

Algorithms could have been shown for each module of the 
working prototype, no matter how trivial. This would have 
served no useful purpose. The important design lesson here 
is that the more carefully the algorithm was developed and 
thought out before the module was coded the more rapidly 


the coding was successfully carried out. 
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ii = CODE 





A. LANGUAGE 

An early concern in any software development is the 
choice of a programming language. There are a plethora of 
languages and language subsets to choose from. Many times 
the choice is heavily dependent on the experience and 
preferences of the programmer(s) and the availability of the 
preferred language on the target machine. These dependen- 
cies may narrow the choices but do not define absolutely the 
language to use in most cases, 

This NTDS display simulator 1S no exception to the 
considerations listed above. The development phase of a new 
piece of software 1s not the best of times to attempt to 
learn a new language. Therefore only languages familiar to 
us were considered. The H/Z-100 computers that NPS is pur- 
chasing will not come with software support for all cur- 
rently existing programming languages. They are capable of 
using languages which possess most of the currently 
available language features. 

The driving consideration in many projects, certainly 
one of the most important issues if not the most, is the 
project itself. Each language has features which are better 
for some applications and suffer inefficiency (or even 
impotence) for others. For the display simulator the two 


Critical issues are graphics support and speed. The more 
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Graphics support the language provides, the more rapidly a 
prototype may be implemented and tested. The more efficient 
the language in terms of processing speed the better it is 
able to approach real-time updates of the display and its 
symbology. 

We feel that Macro-86 assembly language offers the most 
real-time capability. If the NTDS display simulator were 
written in assembly language, it would probably meet or 
exceed the time requirements to provide realistic, dynamic 
displays. Macro-86 maximizes the utilization of the power 
of the H/Z-100 computer through segmentation and paging, as 
well as allowing direct access to the color planes for video 
controle 

Macro-86 assembly language also offers a wide range of 
interfaces with high-level languages. In particular we are 
interested in Ada, which is available for the H/Z-100 and 
which is playing an ever-increasing role in Department of 
Defense applications. Ada has the ability to make use of 
Macro-86 routines. This would allow Ada packages to be 
written for numerous applications, making use of Macro-86 
routines which provide basic graphics functions. 

Macro-86 assembly language does not provide direct 
Support for the graphics functions the display simulator 
needs. Even direct input and output requires special 


handling, register control, and several lines of code. 
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The considerations above led us to choose ZBASIC for an 
initial prototype implementation, and Macro-86 for ultimate 
development and production. We felt that a working 
prototype could be developed in considerably less time in 
ZBASIC (in fact, a prototype of the graphics display 
subsystem has been completed and is included) and used for 
experimentation, testing and further enhancement. We did 
develop some basic Macro-86 routines for graphics support of 
the simulator and testing, and they are included. The major 
drawback of ZBASIC for further development is its lack of 


compatibility with other high-level languages. 


B. DATA STRUCTURES 

It may help to visualize each track in this system as a 
record of the type illustrated in Figure 3.1. ZBASIC does 
not provide data structures which are composed of fields 
With different types. A separate array, therefore, repre- 
sents each field of the TRACK record. 

The other arrays are used as look-up tables for various 
attributes. The type of symbol assigned to a track is found 
in the array SYMS, the speed leaders are in LDRS, the number 
of points determining a land mass(up to three land masses 
are provided for) are found in PTS with each corresponding 
land mass color in LCOL. These tables (SYMS and LDRS) are 


initialized in lines 180-440 (see Appendix A). 
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There are provisions for ten pre-defined symbols, and 
seven symbols are defined in this prototype. By changing 
the dimension of SYMS and itS initialization, any number of 
symbols (up to memory limitations) are defineable. Changes 
to the symbols should be accompanied by changes to the Match 
module, Which assigns symbols to tracks based on their 
CLASS$. The dimension of CLASS$ would not be changed--its 
dimension, along with that of the other fields of each TRACK 
record (see Figure 3.1), determine the number of tracks the 
system will accommodate. These are some of the problems 
inherent in a ZBASIC rapid prototype which will disappear 
With Ada packages, and/or Macro-86 implementation of the 


display simulator functions. 


type TRACK = record 


CLASSS : array [1..9] of char; (class) 

CUS : integer; (course) 

SPD >: integer; (speed) 

TCOLOR : integer; (Cedkorn) 

TX : integer; (xX position) 
Ey >: integer; (yy SeOsie10n) 
XINC >: integer; (x increment) 
YINC >: integer; (y increment) 
TS > atray ‘(ie color char (symbol) 

LS : array [).221Meer cham (speed leader) 
HKS > array [1..2Z)@ob enone (scale) 

ACTIVE : integer; (active/ref pt) 


end; (TRACK) 


Figure 3.1 TRACK Record Structure 


There are eight pre-defined speed leaders, which 


correspond to the four cardinal and four inter-cardinal 


directions. This, too, could be modified, with changes here 


Zs 


and in the Move module, which assigns speed leaders to each 
TRACK based on course and speed. 

The string construction of the elements of the SYMS and 
the LDRS$ arrays makes use of a "language within a language" 
that ZBASIC provides for graphics applications. This 
language is the Microsoft "Graphics Macro Language" (GML). 
iat e3tmp.. 5.5] 

There is no provision for subtypes in the ZBASIC lan- 
guage. For that reason some of the fields of the TRACK 
structure may inadvertently be assigned meaningless values. 
In some cases that will result in program termination and 
the display of an error message by the interpreter. [In 
other cases it may result in undesirable side effects, or 
unexpected displays. Subtypes could have been enforced by 
programming subtype checking--that iS providing checks on 
the bounds of variables that would be classified as subtypes 
and generating error messages when they were assigned 
improper values or re-assigning them automatically to values 
within their bounds. For a prototype implementation of this 
nature it was felt that the user could be responsible for 
the correct assignment of values to variables. 

The TS and LS fields are strings which determine the 
symbol's appearance. PhemcOneents Or the TS field is the 
character string required to draw the symbol. It is copied 
from the table of symbols (SYM$), based on the classifi- 


cation (CLASSS) of the track. The speed leader is looked up 
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in the LDRS table, based on the track's course, and stored 
inmethe LS field for the twas 

The only remaining character string field of the TRACK 
record is HKS. This is a string indicating whether the 
track is hooked or not (a hooked track is one that has its 
parameters displayed on the right side of the display, at 
the user's request). Regardless of whether monochrome or 
color is used, a means is required to identify which track 
is currently hooked (if any). We elected to indicate this 
by enlarging the symbol. The HKS string, indicating scale, 
is always added to the TS string when the symbol is drawn. 

The only other data structures of note are the three 
arrays for land masses which are dimensioned in the Land 
module. They are two dimensional arrays in which the (x,y) 
coordinate pairs for points defining the borders of land 
masses (or other special areas) are stored. The Land module 
then displays these areas by connecting the points with a 
line the color of the land area and painting the area of the 
screen bordered by that line the same color. 

There is no true dynamic memory allocation in ZBASIC. 
To circumnaviagate this limitation, the PTS array stores the 
numbers of points defining each land mass (three are 
provided for in this prototype); then the array elements of 
PTS are used to dimension the land arrays when the Land 
module is called. Multiple calls to the module with 


different values in the PTS array generate errors. The 
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initialization of the lower array subscript to one will 
cause errors if the elements of the PTS array are lower than 
one. For that reason the PTS array elements are initialized 
to ones. This problem also required that each land mass 
have an array with a separate name. That led, in turn, to 
the repetition of similar code in the Land module, once for 


each land mass. 


©. DESIGN DECISIONS 

Some of the decisions made have already been discussed. 
Others are described in an effort to present some project 
history and design philosophy that may enlighten others, or 
remove some of the mystique from "software design". The 
documentation of these decisions and their reasons should 
also enhance maintainability, and extend the life cycle of 
the project by creating an environment of modifiability. 

The decision to use the special function keys for user 
input was born of human factors engineering. The concept is 
to make it simple for the user to make use of the system. 
In order to make it as simple as possible, a especial 
function key menu is displayed at the bottom of the display 
(close to the special function keys) which reminds the user 
what each of them does. These keys are defined in the Init 
module, and restored in the KeyS module upon exit from the 
system. We chose to make extensive use of data statements 


for initializing the display. Because we also designed this 
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prototype with mergable files (the data is in one file) only 
the data file needs to be different for an entirely 
different initial display. 

The Axes module incorporates three Simple yet 
Significant design choices. The first of these is the 
scaling of the divisions along the axes. This scaling was 
discussed in Section I1.B.2. 

The second decision was the way to draw the axes. As 
shown in Figures 3.2-3.3, presenting four distinct areas 
(background, land, symbols, reference grid) on a display 
with only two colors (monochrome system) can be difficult. 
Even on a ocolor monitor problems arise when two or more of 
these graphic entities of the same color are drawn in the 
same area on the display. This prototype is written for 
full color implementation. The sample runs illustrated were 
run with the colors’ black and white, because the H/2Z-100 
monitors currently in use at NPS are monochrome monitors.. 

Figure 3.2 demonstrates the obvious problem. Where the 
land and the reference grid overlap, the reference grid does 
not appear. In this figure the land was drawn first. 
Simply reversing the order of drawing, as expected, does not 
solve the problem. It may introduce a different problem, as 
Shown in Figure 3.3. 

There are two simple solutions to the problem. They are 
shown in Figures 3.4-3.5. Figure 3.4 presents the most 


pleasing appearance. It was created by calculating where 
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Figure 3.2 Reference Grid Eclipsed by Land 





Eagure 3.3 °° Land Mass only Partially Painted 
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the conflicts would arise and mapping the reference grid in 
sections, each section the §eelomemoppest cumeaas Of the 
background. This may present the most elegant display, but 
requires modification of the actual Axes module every time 
different land is drawn. 

The second method of solving the conflict is illus- 
trated in Figure 3.5. After the land is drawn, a wide line 
the color of the background (i.e., opposite that of the 
land) is drawn where the grid will appear, then the grid is 
drawn on top of it ina slightly narrower line. The picture 
is not quite as elegant, and some of the land features are 
obscured. This solution does offer the advantage of writing 
one Axes module which will work whatever the land for any 
particular display is. We employed this solution in the 
prototype for just that reason. 

The Update module may be considered the heart of the 
system. It presented several interesting design alterna- 
tives, many because of the language limitations of ZBASIC. 
The reader may want to refer to Appendix G, which contains 
the listing of the code of this module, during the reading 
of the following discussion. 

The first choice, which is not evident in examining the 
code, was whether to place the update loop within this 
module or in the calling routine. The simulator should 
periodically perform an automatic update of all tracks, 


independent of user input. This requirement seemed to infer 
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Figure 3.4 Solution One 





Prqure=s-5  oSsolUtron Two 
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that the loop should be internal. Initially we provided the 
loop in this Update module. That worked fine, until user 
interaction was added. 

At any time the user may elect to delete, insert, hook 
or modify a track. Ideally he/she would not have to wait 
for the next update of all tracks to see the effect of the 
service request, but should see it implemented immediately. 
For this reason the loop was externalized, allowing this 
module to be called for the single track being deleted, 
inserted, hooked or modified. 

We have stated that many decisions were made in the 
interest of clarity rather than efficiency. One of the 
exceptions to this rule is here, in the early lines of the 
Update module. Several times within this module reference 
is made to elements of the TRACK record structure (Figure 
3.1). Calculations of the actual address of an element in 
an array are more time-consuming than references to simple 
Variables. Almost all of the array elements that are 
referenced are copied into local simple variables to save 
time. 

Because the ACTIVE field is referred to at most twice 
Within Update, it waS not copied but is referred to 
di recmily . The ACTIVE field serves two purposes with three 
allowable values. If the value of this field is zero, the 
track is inactive (the user no longer desires it to be 


displayed), and it is only erased. A value of one indicates 
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an active track, and it is erased, updated, and re-drawn. A 
value of two indicates a special type of "inactive" -- a 
symbol which does not move (i.e., reference point, or target 
with speed equal to Zero). It is not erased or updated, 
merely re-drawn (in case it has been partially over-written 
by another track). 

The next decision is one involving a sampling technique. 
One common method for erasing a figure in computer graphics 
nS to re-draw ne in the same color as its 
background. That is the method we employ here. 

This erasure/re-drawing could be performed automa- 
miecdily, in ZBASIC, through the use of the PUT and GET 
statements. The code would have been easier to write, 
perhaps even quicker to execute. The problem with this easy 
sollUmmem 1s illustratedmingeiguress) 6-3-7. . 

The use of the PUT and GET statements is a three-step 
process. me f{1¢GUre Pelte|t sce ugmeemee movedsis first 
drawn somewhere on the screen. This has been done in Figure 
3.6, providing the right-most symbol. This step precedes 
the actual use of either the PUT or the GET Statement. Then 
Se GEaestatement is utilized, in kre form GET (xl, yl) - 
(x2, y2), <figure name> (A necessary preliminary step, 
before even drawing the figure, is the use of a DIMension 
Statement to allocate memory for the drawing). The 
subscripted x and y values are coordinates, the first pair 


for the upper left-hand corner of a box on the screen which 


3] 
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Figure 3.7 Moving a Symbol using PUT 
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Sletoses the figure, the second pair for the lower right- 
hand corner. The amount of space to set aside in memory 
through the DIM statement is dependent upon the size of the 
pixel=pox enclosing the figure. Figure name is a variable 
name that iS assigned to the portion of memory where this 
pixel box is stored. The third and final step, the use of 
Ene PMs raremenc, 1S Of the form PUT (x, y), <£igure name>. 
The coordinates x and y are of the upper left-hand corner of 
an area on the screen where the upper left-hand corner of 
the original figure's containing box is to be placed. The 
result will be the placement of the original figure where 
the PUT statement has’ directed. Placing of a symbol with 
the PUT statement is demonstrated by the white symbol in the 
black box in Figure 3.6. 

There are "action verbs", optional commands which follow 
the <figure name> in the PUT statement, which determine the 
relationship in the new location between the figure's box 
and the background existing at the specified screen 
location. Proper use of these action verbs relieves the 
programmer of the need to be concerned with what the 
background looks like by automatically ensuring that the 
desired effect is produced when the figure is drawn, and the 
background is restored when the figure is erased. The 
problem with all of this is the requirement that an entire 


box of pixels, enclosing the symbol, must be moved. The 


By 


results of this are allustYvaced in Fretires = some ne 
[Ref 333 pp por o- Ca 

A solution which provides much cleaner displays, and 
obscures less background wherever a symbol is placed, is 
shown in Figures 3.8-3.9. The symbols are drawn using the 
Graphics Macro Language (GML) of ZBASIC [Ref. 3: p. 5.5] in 
Figure woo The results of moving them with the Update 
module are shown in Figure 3.9. 

We need, therefore, some method of determining the 
background color (the symbol may even rest on a background 
containing two colors in a monochrome display, or more than 
two Goa color Sdisplay). We elected a point sample, for 
speed and simplicity. There are problems attendant with 
this method when the symbol restS on a multi-colored 
background. Any sampling technique, other than examining 
every pixel the symbol occupies, suffers from the same 
problem. Rather than employ this time-consuming process 
(sampling every point) to solve what we expect to be an 
infrequent problem, we elected to use a single point sample. 
We chose to look at a point two pixels to the right and one 
pixel below the symbol center. 

When this sampling is applied to the new symbol position 
we face another decision. If the new background is the same 
color as the symbol, what color should the new symbol be 
drawn in? For a monochrome display the answer is already 


determined. We elected to provide’ the same choice 
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Figure 3.8 Symbols Drawn uSing GML 





Serer. 


Figure 3.9 Symbols Moved uSing Update 
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in the color “dusplay- For the two darkest backgrounds, 
black and blue, the symbol is drawn in white. All others, 
if they match the actual symbol color, result in a black 
symbol. 

The final decision involved track history. We chose not 
to store the information anywhere, partiy due to the lack of 
dynamic memory allocation. We did experiment with a track 
history display, however. It was simple to implement, 
interesting to see, and is left as an exercise for the 
reader. 

The decisions in the Move module have been addressed 
earlier, after a fashion. We chose to use only eight speed 
leader directions. For determination of the incremental 
movement of the symbol across the display we divided a 
circle into 20 sections (see Figure 3.10). 

The actual listing of the Move module code, Appendix H, 
looks more complex than it is. The first several lines of 
code make the division of the circle (courses ranging from 
000 degrees to 360 degrees), directing execution of the 
appropriate statements to assign the increments for the 
horizontal and vertical movement, as well as the _ speed 
leader direction. The GOTO statements simply complete the 
construction of a giant case statement, transferring program 
control to the speed section. 

Here we encounter another decision: how many different 


States of speed to recognize. We chose three, representing 
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Slow targets (such as surface vessels), medium speed targets 
famrerbart) and high-speed targets (jet aircraft and 
missiles). Based on the speed category, the speed leader 
and the movement increments are scaled. The special case of 
a track with zero speed is also treated, by assigning no 


speed leader and no incremental movement. 


© O O 
22.5 Nw 045° < CUS <= 067.5 
17.5° each <— “  355°< CUS or 


CNG. 22 Haas 


Figure 3.10 Target Course Increments 


In the Tracking module we chose to provide Pr the 
possibility of existing tracks in the initial display. fThis 
feature allows for the establishment of various training 
modules, each with different initial track selections. ie 
there are none, the code that treats them is skipped. 

The next section of this module affects the delay 
between updates. It also provides the opportunity to the 


user to make a service regquest. While all tracks are being 
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updated, the user input is ignored. Then, £0r Ehewteng neo: 
time between delays, or until the user makes a service 
request, the keyboard is repeatedly checked for pressed 
keys. In the Macro-86 implementation, this could be handled 
through an interrupt service request. If the user makes a 
request, it is checked for validity. We decided to ignore 
invalid input rather than generate error messages. This was 
felt to be more "user friendly" and robust. Valid input is 
the use of any of the special function keys that have 
defined functions. Those which are defined are displayed at 
the bottom of the screen in the special function key menu, 
as seen in Figures 3.8, 3.9, 3.11 and 3.12. 

The decisions made in the Keys module were driven more 
by requirement than choice, in many cases. The "Halt" 
request clears the screen of the display and restores the 
special function keys, as a matter of good programming 
practice. The "Suspend/Continue" request waits for another 
input from the keyboard. We chose to accept any key to 
continue, again in the interests of robustness and “user 
friendliness". 

There are some interesting requirements generated by a 
request to "Hook" a track. We have elected to have only one 
track hooked at atime. The first thing this module does, 
then, is to check to see if there is a track already hooked. 
If there is, it must unhook it. This involves more than 


merely changing the HKS field in its record. 
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Hooked tracks are indicated, in this prototype, by 
enlarged symbols. The enlarged symbol of the previously 
hooked track must be erased, or the next erasure will only 
erase a small part of it. After managing any previously 
hooked track, the user is asked to specify the number of the 
track to hook. It is then hooked, its symbol enlarged, and 
the parameters of the track displayed to the right of the 
screen. An example of a hooked track display is pictured in 
Figuee 3.11. In later implementations, it would be 
desirable to indicate a track to hook by either its track 
number or by placing the cursor near it. This prototype 
does not provide for cursor-dependent user input. 

The same problem, cursor-independent user input, 
surfaces in the "Enter" request. The user is asked to enter 
thaemeumpdrameters, including “Grid xX” and *Grid Y¥". Details 
of these parameters are included in the User's Manual, 
Appendix N. Figure 3.12 shows a request for the user to 
enter the class of a track at the top of the screen, in 
response to a depression of the "Enter" <F3> key by the 
user. The problem re-appears in the "Modify" function, 
Wiememeiecmecri1d X™ ande"Grid Y" of themrrack are verified or 
modified by the user. 

The Match module matches the symbol type to the CLASSS 
field of the TRACK’ record. Arbitrary choices were made 
here, and have no bearing on actual NTDS symbology. The 


symbols chosen and the corresponding classifications were 
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3.11 A Hooked Track 


Figure 





3.12 User Input Requested 
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Bou ine 


made simply to demonstrate the proper EUnet Oning of the 


prototype. 
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IV. PERFORMANCE TESTS 


A. “TIMING 

We present here the results of selected timing tests 
that were performed for purposes of comparison. The first 
tests performed were timing two primitive functions by the 
prototype modules in each of the two languages proposed and 
used. The results are presented in Table 4.1 and discussed 


below. 


TABLE 4.1 TIMING COMPARISONS, ZBASIC AND MACRO-86 


TEST 4. TES 4 Z 

Window Symbol 

Generation Generation 
ZBASIC POO D4 .0846 
Macro-86 - 1300 ~0015 


All times in Table 4.1 are given in seconds. Test #1 
was the generation of the window and the reference grid. 
For the ZBASIC timing the Window and Axes modules were used 
to generate 100 displays. The times were noted and the 
elapsed time computed and divided by 100 to obtain the data 
in Gaete 4.1. To time the Macro-86 routine, which does 
generate a reference grid but does not ensure freedom from 
color conflict and does not provide scale divisions, one 


display was drawn. Timing interrupts were generated to 
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allow the system clock to time the performance. Although 
the test conditions were not identical, the test results 
Mwominatcatilvye of tne order of magnitude of the different 
performance of the two languages. 

Test #2 timed the generation of one symbol. for the 
Macro-86 test the screen was filled with 2000 symbols, the 
time to do so recorded and divided by 2000 to obtain the 
result recorded above. FOr Z5ASIC TO00 es ssymools were 
generated using the Update module. Because Update erases 
each symbol and re-draws it, this was the time required, in 
effect, to draw 2000 symbols. The relative efficiencies of 
the two languages are again exposed, rather than the 
precise difference in time required to perform the same 
task. 

Further timing testS were conducted using the entire 
display simulator prototype. The results are tabulated in 
Table 4.2 and disussed in the following paragraph. 

The first ieee timing runs involve numbers of symbols 
that are multiples of each other. The times do not follow 
that exact correspondence. This is due to the overhead 
involved in acall to a subroutine and a return, performed 
in an iterative loop. Even at 99 symbols, where the 
overhead per symbol becomes negligible, the update time per 
symbol may be seen to exceed .15 seconds, almost twice the 
time per symbol when just the Update module was tested. 


The suggested limitation of the system this data provides 
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is not as serious as it first seems. When only twenty 
symbols were displayed, it required the operator more than 
4,02 seconds to digest the graphic information displayed. 
Of course, in high density tactical pictures, only sine 


targets of immediate priority are concentrated on. 


TABLE 4.2 PROTOTYPE SYMBOL GENERATION TIMING 


# of Symbols Time required to update all tracks 
10 2.07 seconds 
20 4.02 seconds 
40 7.89 seconds 
99 15.27 seconds 
These initial timing results confirm our earlier 


Suggestion that the prototype should be (and has been) 
developed in ZBASIC in order to be available for use _ and 
experimentation sooner, but the final system implemen- 
tation should be developed in Macro-86 assembly language. 
Toward that end the Macro-86 listings in Appendices O-U are 


provided, and the User's Manual for them in Appendix V. 


Bowes’ 2 ele Ney 

There are other efficiency issues to be addressed. As 
has been noted more than once, the prototype we have 
implemented is not the most efficient possible. It may be 
that when the code has been tightened up as much as can be 
the ZBASIC implementation may suffice. It is our opinion 


that it is, and may continue to be, quite useful, but that 


2) 


a final implementation in Macro-86 would be well worth the 
er FOmE. 

Chapter III addressed some of the places in which the 
Zensic code Sacrificed efficiency for clarity. There are 
other indications of possible coding improvements suggested 
in the User's Manual for the prototype, Appendix N. More 
suggestions for follow-on efforts are addressed in the next 


elrapter. 


5). 


Vo <CONCIUS ICN 


A. USES OF THIS 2Rorot es: 

This NTDS display Simulator prototype has been 
developed as proof of the feasibility of such a simulator 
on the H/Z-100 microcomputer. It demonstrates the graphic 
ability of the H/Z-100 to support such a simulator, gives 
any users actual displays to experiment with and learn 
from, and shows that such a simulator might present real- 
time graphic updates. It may also be used to demonstrate 
the graphics capability of the H/Z-100. 

The code listings provided, coupled with the desid, 
discussions in this text, document some of the thought 
processes and decision criteria involved in developing such 
a system. It may be used without modification or improve- 
ment aS a Simplistic display Simulator for some of the 
purposes put forth in Chapter I. It may become the kernel 
of a more fully developed NTDS system, using Ada as_ the 
higher level language and Macro-86 when required. 

The Macro-86 modules provided may be incorporated as 
they are in other systems to perform very primitive graphic 
Fine: LOnse They model the type of development that may be 
considered for other assembly language functions users may 
Want to incorporate in this or other systems. They are 


also models of at least one form of internal documentation. 


yz 


B. FOLLOW-ON WORK 

The display simulator prototype in ZBASIC performs some 
of the functions such a system is required to perform. 
Functions such as track history (earlier alluded to), 
automatic track sequencing, trouble tracks (tracks which 
have not been updated recently enough by the user), etc., 
could be added. Interfaces between the assembly language 
modules included and high-level languages (such as_ Ada) 


could be developed. 


C. LESSONS LEARNED 

Many valuable lessons were learned during the develop- 
ment of this prototype. It is not easy to assign priority 
to them. The order in which they are presented is not 
meant to imply such a prioritization. Each lesson here was 
valuable, and should be given careful consideration in any 
future development of this project. 

Internal documentation iS very important. Even as a 
Simple, one-programmer project, the internal documentation 
of the code made corrective maintenance much easier, and 
should enhance the maintainability of the code for other 
programmers working with it in the future. 

During prototype development such as this, clear logic 
is more important than elegant code. Keeping the logic 


clear caused a proliferation of variable names, and 
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the repetition of some sections of code, but it greatly 
enhanced testing and debugging. 

ZBASIC is a more versatile language than it appears to 
be, This may verge on heresy in computer science circles, 
and it came as a surprise to us. The ease with which some 
other high-level language constructs could be constructed 
in ZBASIC was an eye-opener. 

At the same time, this project exposed some of the 
problems with 2ZBASIC for systems work. The lack of data 
structure definition was a difficult problem to overcome. 
The inability to specify sub-types was also an unpleasant 
reality. The real surprise was revealed in Table 4.1. 
ZBASIC had not seemed visibly much slower than Macro-86, 
but the timing tests revealed the magnitude of the 


difference, 


D. CONCLUSIONS 

The display simulator prototype has been developed. 
The feasibility question has been answered. The H/Z-100 is 
definitely capable of providing the user with an NTDS-type 
Bisel, and with some of the NTDS user functions. 

The display updates are noticeable, regardless of the 
number of symbols in the system. This feature will remain 
in any implementation language, because the re-location of 


the symbols is in discrete steps. 
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The speed of the updates is a function of the language 
employed. The data in Table 4.1 provides evidence of the 
Savings in time achievable through the use of Macro-86 
routines. The window area alone may be generated in less 
than one-fifth the time in assembly language. Drawing more 
complex shapes on the screen take even longer in ZBASIC. 
This is evidenced by the 56-1 time differential in drawing 
a simple symbol. 

The data in Table 4.2 is even more revealing of the 
inefficiencies of ZBASIC for real-time applications. It is 
readily apparent that the symbol generation within the 
prototype, rather than in a separate test module, takes 
almost twice as long. The additional time delay is due to 
the call-return sequence, utiliZing the Update module for 
each symbol re-location. 

This does not mean that the prototype itself is 
useless. Fire control solutions reguire accurate solutions 
at precise instants in time. Tactical displays may lag the 
real-time situation by as much as a few seconds and still 
be useful to the human operators. A display simulator, 
which utilizes keyboard input rather than radar and other 
equipment inputs, is useful at even slower speeds. 

We conclude that this prototype has value, as discussed 
above. Future implementation Of ~a) tactical “display 
Simulator on the H/Z-100, in assembly language, and/or 


another high-level language, is desirable and encouraged. 


a): 


APPENDIX A: LISTING OF NEWEST.BAS 


SAMPLE NTDS DISPLAY SIMULATOR 


FRAME #/7 


PROTOTYPE DISPLAY 


"CLEAR THE DISPLAY 


* % * * INITIALIZATION AND TABLES * * * x «x * 


OPTION BASE 1 
i] 


"ARRAY SUBSCRIPT LOWER BOUND = 1 


DIM CLASS$(10), CUS(10), SPD(10), TCOLOR(10) 
DIM TX(10), TY(10), XINC@O),, YINCGO) ms Clo) emer on 
DIM SYM$(10), LDR$(8), PTS(3), LCOL(3), HK$(10), ACTIVE(10) 


SYM$(1) 
SYM$(2 ) 
SYM$(3) 
SYM$(4) 
SYM$(5) 
SYM$(6) 
SYM$(7) 
SYM$(8) 


SYM$ (9) == 
SYM$(10) 


LDR$(1) 
LDR$(2) 
LDR$(3) 
LDR$(4) 
LDR$(5) 
LDR$(6) 
LDR$(7) 
LDR$(8 ) 


SYMBOL TABLE 


"BM+0 ,-3 
= "BM+0,-3 
= "BM+0, -3 
= "BM+0,-3 
= "BM+0,-3 
= "BM+0,-3 


R3 
Ee 
R3 
R2 
R3 
ES 


D3 
D3 
D6 
EZ 
D3 
Ge 


BM-6,0 D3 R3 BM+0,+3" 

BM+0 ,+3" 

L6 U6 R3 BM+0,+3" 

D3 G2 L4 H2 U3 E2 R2 BM+0,+3" 
BM-6,0 U3 R3 BM+0,+3" 

H3 E3 BM+0,+3" 


= "J3 R3 D6 L6 U6 R3 D6 U3" 


SPEED LEADER TABLE 


= sha) PAL 
ae OG tt 
= RS! 
on “nat 
= "Da" 
= "Gar 
= Mice 
+ at! 


START WITH NO TRACKS 
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470 
480 
490 
500 
510 
520 
5) )0 
540 
560 
570 
580 
590 
600 
605 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
7/0 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 


TRACKS = 0 

t 

INITIALIZE PTS ARRAY ELEMENTS TO 

FOR I = 1 TO 3: PTS(I) = 1: NEXT I 

i] 

DEFINE FUNCTION KEYS 

Ppt CHR$(27) + "'s* 

hey, CHRS(27) + "T" 

KEY 3, CHR$(27) + "U" 

KEY 4, CHR$(27) + "Vv" 
oe 
+ 


KEY 5, CHR$(27) + "w" 
KEY 6, CHR$(27) + "P" 
i] 


INITIALIZE HK$ AND ACTIVE 


FOR I = 1 TO 10 
HK$(I) = "so" 
ACTIVE(I) = 0 
NEXT I 

t 


: DISPLAY FUNCTION KEY FUNCTIONS 
t 

COLOR 0,7 
BOGATE 25, 5 
PRINT " F1 " 
LOCATE 25, 19 
PRINT " F2 " 
MOGATE 25, 29 
Beane  F3 ° 
HOCALTE 25, 40 
PRINT " F4 " 
HOGATE 25, 52 
RRENT " F5 " 
MOGATE 25, 164 
PRINT " F6 " 
COLOR 7,0 
LOCATE 25, 9 
PRINT "SUSP/CONT" 
MOGATE 25, 24 
PRINT "HOOK" 
LOCATE 25, 34 
PRINT "ENTER" 
MOCAEH 25, 45 
PRINT "MODIFY" 
[HOGCATE 25, 5/ 
PRINT "DELETE" 
[FOCATE 25, 69 
PRINT "HALT" 


1000 ' 


a 


1010 ' GET WINDOW PARAMETERS 

1020 

1030 READ XUL, YUL, XLR, YLR, CWIND 

1040 ' 

1O50e- DRAW THE WINDOW 

1060 ' 

1070 GOSUB 5000 

1080 ' 

1090 ' GET LAND PARAMETERS 

moo 

1110 READ CONTS "HOW MANY LAND MASSES? 

20): 

10: * DRAW LAND MASSES 

1140. ' 

1150 GOSUB 8000 

1160 ' 

jotl AQ ay GET GRID PARAMETERS 

LIS 0. * 

1190 READ XYAX, YTOP, YBOTT, YCOL 

1200 READ YXAX, XLEFT, XRITE, XCOL 

P20. ' 

£220. DRAW THE GRID 

1230" 

1240 GOSUB 5200 

250°" 

1260 RUN UPDATE TESTS 

70S 

1280 GOSUB 11000 

IPO 

1300 ' 

4999 END 

5000 ' *« * * * * * * DRAW WINDOW SUBROUTINE * * * * * * * 

5010 =. . 

5020 ' * INPUTS: XUL, YUL - UPPER LEFT-HAND COORDINATES * 

5030 ' XLR, YLR - LOWER RIGHT-HAND COORDINATES * 

5040 CWIND - COLOR OF WINDOW 

Booms 

5060 ' 

5070 ' 
t 
t 
t 
t 


+ 


OUTPUT: SOLID WINDOW, XLR - XUL PIXELS WIDE, 
YLR - YUL PIXELS DEEP, COLOR CWIND * 


i a a 


5080 
5090 
5100 
5110 
5120 LENE (XU) YUL) = (XLR YER) > CwIND ye cr 

Desi 

5140 RETURN 

5150 ' 

5160 ' 

5200 ' * * * * * * * COORDINATE AXES SUBROUTINE ** * * ¥ *¥ * * * 
D2" x a 
5220 " * INPUTS: XYAX, YTOP, YBOTT - VERTICAL AXIS COORDINATES * 


ve ke ke &e & & ok ke ve le ke & me eK ey ee Ke Oe eS ee ee 
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5250 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5510 
9520 
5330 
5340 
5350 
5360 
5365 
D350 
5380 
3320 
5400 
5405 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5/100 
SWAY 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5/710 


2 


ACOE.. YCOL - GRID COLORS 


%& 3t OF 


2 


OF XCOL AND YCOL 


2 


pe 


HSCALE = (XRITE - XLEFT)/20 


aly * awe 808 
Kk eR KKK KR KR RR Ok eR RK Ke ee 


OUTPUT: PROPERLY SCALED SET OF COORDINATE AXES, 


YXAX, XLEFT, XRITE - HORIZONTAL AXIS COORDINATES 


"FOR PROPER ASPECT RATIO 


VSCALE = HSCALE * .46 

DRAW VERTICAL AXIS 

t 

LINE (XYAX-1, YTOP) - (XYAX+1, YBOTT), CWIND, BF 


Pen CXYAX, YIOP) = (XYAX, YBOTT), YCOL 
q 


DRAW HORIZONTAL AXIS 


LINE (XLEFT, YXAX-1) - (XRITE, YXAX+1), CWIND, BF 


ibe (XLEFT, YXAX) - (XRITE, YXAX), XCOL 
$ 


DRAW HORIZONTAL SCALE DIVISIONS, LEFT 
t 
FOR H = XYAX TO XLEFT STEP -HSCALE 

LINE (H, YXAX-2) - (H, YXAX+2), XCOL 

Mowe, (H+1 4 YXAX-2)e= (H+, YXAK+2), XCOL 
NEXT H 
q 


DRAW HORIZONTAL SCALE DIVISIONS, RIGHT 
t 
FOR H = XYAX TO XRITE STEP HSCALE 
LINE (H, YXAX-2) - (H, YXAX+2), XCOL 
LINE (H+1, YXAX-2) (H+1, YXAX+2), XCOL 
NEXT H 
q 


DRAW VERTICAL SCALE DIVISIONS, UPPER 
q 
FOR V = YXAX TO YTOP STEP -VSCALE 
LINE (XYAX-4, V) - (XYAX+4, V), YCOL 
NEXT V 
q 


DRAW VERTICAL SCALE DIVISIONS, LOWER 
i 
FOR V = YXAX TO YBOTT STEP VSCALE 
LINE (XYAX-4, V) - (XYAX+4, V), YCOL 
NEXT V 
¢ 
RETURN 
q 
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"HORIZONTAL SCALE MULTIPLIER 
PVERDMOAD. SCALE MULT IPEL ERs 


5720 
3730 
5740 
5750 
5760 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6100 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
625) 
6260 
6270 
6280 
6290 
6295 
6300 
6305 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6374 
6375 
6376 
6380 
6390 
6400 
6410 


THIS AXES SUBROUTINE IS BASED ON THE PROGRAM 
9-2, PAGE 9-15, IN THE CONTINUING EDUCATION 
CORRESPONDENCE COURSE "COMPUTER GRAPHICS", 
WRITTEN FOR HEATHKIT/ZENITH BY 

JAMES C. ADAMS 


* * *& & %& * UPDATE TRACKS SUBROUTINE * * * * * * % 
* INPUTS: UPD - # OF TRACK TO UPDATE * 
% * 


* OUTPUT: TRACK UPD IS UPDATED ve 


t 
$ 
t 
¢ 
t 
oe 
t 
t 
i] 
$ 
: 
eee kk kK RRR KK RK KR RK KKK KEK KEKE KK ES 


t 
t 
t 
¢ 
PERFORM ALL LOOK-UPS ONLY ONCE 
i] 

UPDX = TX(UPD) 

UPDY = TY(UPD) 

UPDT$ = HK$(UPD) + T$(UPD) 

UPDL$ = L$(UPD) 

HORZUP = XINC(UPD) 

VERTUP = YINC(UPD) 

COLUP = TCOLOR(UPD) 

t 


UPGND = POINT(UPDX+2, UPDY+1) 

ON UPGND+1 GOSUB 6520, 6530, 6540, 6550, 6560, 6570, 6580, 6590 
WANT$ = COL$ + UPDT$: ALSO$ = COL$ + UPDL$ 

i] 


PSET (UPDX, UPDY), UPGND ‘DRAW OLD SYMBOL IN 
DRAW WANT$ "REVERSE COLOR 

PSET (UPDX, UPDY), UPGND 

DRAW ALSO$ 

DRAW "So" 

t 

IF ACTIVE(UPD) = 0 THEN 6490 


UPDX = UPDX + HORZUP ‘UPDATE POSITION 

UPDY UPDY + VERTUP 

i] 

UPGND = POINT(UPDX+2, UPDY+1) "CHECK BACKGROUND COLOR 
: OF NEW LOCATION 

IF UPGND <> COLUP THEN 6375 "MAKE SYMBOL OPPOSITE 
IF UPGND < 2 THEN COLUP = 7 ELSE COLUP = 0 "OF BACKGROUND 

i] 


ON COLUP+1 GOSUB 6520, 6530, 6540, 6550, 6560, 6570, 6580, 6590 
WANT$ = COL$ + UPDT$: ALSO$ = COL$ + UPDL$ 
t 


PSET (UPDX, UPDY), COLUP "DRAW NEW SYMBOL 


DRAW WANT$ 
PSET (UPDX, UPDY), COLUP 
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6420 
6425 
6430 
6440 
6450 
6460 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
rete 
7130 
7140 
Fis 
7160 
170 
7180 
790 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 


DRAW ALSO$ 
DRAW "SO" 
q 

TX(UPD) 
TY (UPD) 


UPDX 
UPDY 


4 
RETURN 
| 


COL$ 
COL$ 
COL$ 
COL$ 


"Cg'. 
"cy" 
tagM" 
te! 
= "cg" 
NOB, 
= "C6" 
Naz" 


oe ee ee oe ® 


ake 


ate 
aN ra 


% sf 


INPUTS: 


OUTPUT: 


ob 


og 


<a ak 


ate ale 
ee ae 


* 


CUS(MOVE) < 


CUS(MOVE) < 
CUS(MOVE) < 
CUS(MOVE) < 
CUS(MOVE) 
CUS(MOVE) < 
CUS(MOVE) < 
CUS(MOVE) < 
CUS(MOVE) < 
CUS(MOVE) < 
CUS (MOVE ) 
CUS(MOVE) < 
CUS (MOVE ) 
CUS(MOVE) < 
CUS(MOVE) < 
CUS(MOVE) < 
CUS(MOVE) < 


MOVE 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


& ade ale le 
ra cay #¥ ray 


‘STORE NEW POSITION 


SYMBOL MOVEMENT CALCULATOR 


- TRACK TO CALCULATE FOR 


XINC, YINC, SCALE FACTOR FOR SPEED 


LEADER OF EACH ACTIVE TRACK ARE 


CALCULATED AND STORED 


* 


CUS(MOVE) <= 2 


6 


cial 


15 


= 29 


ats ate 
ray ae 


5) 
VAP) 
45 
ioe) 
85 
95 
Ze 
153) 
eS, 
1, 
1.85 


<= 202.5 


229 


<= 247.5 


265 
zy) 
Ze 
ot 


ale 
an 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
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rise ris 


els 
a 


7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
i510 
Za20 
7530 
7540 
vaa0 
7560 
(570 


als 
a 


lp le Lo «Sloat, 
se ve ve ve ve we ve ve 


CALCULATE INCREMENTS BASED ON COURSE 


ate 


ale 
cay ae 


ae ale 
an ris 


xe 3 


x ix 


7340 IF CUS(MOVE) <= 337.5 THEN 7580 

7350 IF CUS(MOVE) <= 355 THEN 7590 

7360 ' 

7370 ' 

7400 XINC(MOVE) = 8: YINC(MOVE) = 0: L$(MOVE) = LDR$(3): GOTO 7600 
7410 XINC(MOVE) = 7: YINC(MOVE) = -3: L$(MOVE) = LDR$(2): GOTO 7600 
7420 XINC(MOVE) = 5: YINC(MOVE) = -5: L$(MOVE) = LDR$(2): GOTO 7600 
7430 XINC(MOVE) = 5: YINC(MOVE) = -5: L$(MOVE) = LDR$(2): GOTO 7600 
7440 XINC(MOVE) = 3: YINC(MOVE) = -7: L$(MOVE) = LDR$(2): GOTO 7600 
7450 XINC(MOVE) = 0: YINC(MOVE) = -8: L$(MOVE) = LDR$(1): GOTO 7600 
7460 XINC(MOVE) = -3: YINC(MOVE) = -7: L$(MOVE) = LDR$(8): GOTO 7600 
7470 XINC(MOVE) = -5: YINC(MOVE) = -5: L$(MOVE) = LDR$(8): GOTO 7600 
7480 XINC(MOVE) = -5: YINC(MOVE) = -5: L$(MOVE) = LDR$(8): GOTO 7600 
7490 XINC(MOVE) = -7: YINC(MOVE) = -3: L$(MOVE) = LDR$(8): GOTO 7600 
7500 XINC(MOVE) = -8: YINC(MOVE) = 0: L$(MOVE) = LDR$(7): GOTO 7600 
7510 XINC(MOVE) = -7: YINC(MOVE) = 3: L$(MOVE) = LDR$(6): GOTO 7600 
7520 XINC(MOVE) = -5: YINC(MOVE) = 5: L$(MOVE) = LDR$(6): GOTO 7600 
7530 XINC(MOVE) = -5: YINC(MOVE) = 5: L$(MOVE) = LDR$(6): GOTO 7600 
7540 XINC(MOVE) = -3: YINC(MOVE) = 7: L$(MOVE) = LDR$(6): GOTO 7600 
7550 XINC(MOVE) = O: YINC(MOVE) = 8: L$(MOVE) = LDR$(5): GOTO 7600 
7560 XINC(MOVE) = 3: YINC(MOVE) = 7: L$(MOVE) = LDR$(4): GOTO 7600 
7570 XINC(MOVE) = 5: YINC(MOVE) = 5: L$(MOVE) = LDR$(4): GOTO 7600 
7580 XINC(MOVE) = 5: YINC(MOVE) = 5: L$(MOVE) = LDR$(4): GOTO 7600 
7590 XINC(MOVE) = 7: YINC(MOVE) = 3: L$(MOVE) = LDR$(4): GOTO 7600 
7595 XINC(MOVE) = 8: YINC(MOVE) = 0: L$(MOVE) = LDR$(3): GOTO 7600 
7600 ' 

7 oe CALCULATE AMOUNT OF INCREMENT, SPEED LEADER 

26208 SCALE, BASED ON SPEED 

7630 ' 

7640 IF SPD(MOVE) >= 100 THEN 7690 

7641 IF SPD(MOVE) <> O THEN 7650 

7642 XINC(MOVE) = 0 

7643 YINC(MOVE) = 0 

7644 L$(MOVE) = "" 

7645 GOTO 7770 

7650 XINC(MOVE) = INT(.5 * XINC(MOVE)) 

7660 YINC(MOVE) = INT(.T * YINC(MOVE)) 

7670 L$(MOVE) = "S2" + L$(MOVE) 

7680 GOTO 7770 

7690 IF SPD(MOVE) <= 600 THEN 7770 

7700 XINC(MOVE) = INT(2 * XINC(MOVE)) 

7710 YINC(MOVE) = INT(2 * YINC(MOVE) ) 

7720 L$ (MOVE) = "S8" + L$(MOVE) 

i760) * 

7770 RETURN 

1130"* 

8000 ' * * * * * * * DRAW LAND SUBROUTINE * * * *# *¥ * * * 
S010 9 * * 
8020 ' * INPUTS: PTS - ARRAY OF #s OF BORDER POINTS * 
S02 oa CONTS - # OF LAND MASSES * 
8030 ' x te 
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8040 
8050 
8060 
8070 
8075 
8080 
8090 
8100 
8110 
8120 
8125 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
S200 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 


' * OUTPUT: PLOTTED LAND MASSES, IN SPECIFIED COLORS * 
t sie we 
t 
t 


wewek ke we ke ke ke ke ke & & & os see eae ON OK Ue se oe US Ue 


IF CONTS = 0 THEN RETURN 'NO LAND MASSES, NO DRAW 
t 
FOR I = 1 TO CONTS 
READ PTS(L), LCOL(L) 
NEXT I 
t 


DIM LAND1(PTS(1), 2), LAND2(PTS(2), 2), LAND3(PTS(3), 2) 
FOR ISLE = 1 TO PTS(1) 
READ LANDI(ISLE, 1), LAND1(ISLE, 2) 
NEXT ISLE 
t 


HORS TsLE = 1 TO PES(2) 

READ LAND2(ISLE, 1), LAND2(ISLE, 2) 
NEXT ISLE 
t 


FOR ISLE = 1 TO PTS(3) 
READ LAND3(ISLE, 1), LAND3(ISLE, 2) 
NEXT ISLE 
| 
Beri GLAND Cf, 1), LAND1(1,2)), LCOL(1) 
FOR ISLE = 2 TO PTS(1) 
LINE - (LANDI(ISLE, 1), LANDI(ISLE, 2)), LCOL(1) 
NEXT ISLE 
t 


READ CENTX, CENTY 
t 
Saunt (CENTX, CENTY), LCOL(1),.LCOL(1) 
t 
IF PTS(2) < 2 THEN RETURN 
t 
PSbEe(PAND2(1,1), LAND2(1,2)), LCOL(2) 
FOR ISLE = 2 TO PTS(2) 
li ibe- §(LAND2(ISLE, 1), LAND2( ISLE, 2)), LCOCL(2) 
NEXT ISLE 
t 
READ CENTX, CENTY 
t 
PAUN@meemnmix,) CENTY), ECOL(2), LCOL(2) 
i] 
IF PTS(3) < 2 THEN RETURN 
i] 
Pore bANDS (id). LAND3(1,2)), LCOL(3) 
FOR ISLE = 2 TO PTS(3) 


LINE - (LAND3(ISLE, 1), LAND3(ISLE, 2)), LCOCL(3) 
NEXT ISLE 


READ CENTX, CENTY 
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8530 


8540 PAINT (CENTX, CENTY)> LCOR@) LEOL(G) 


8550 


- 


8560 RETURN 


10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
LOZANO 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 


BO sedededededevevesesevek DATA eokvedekdediokedek eek 

7 XUL, YUL, XLR, YLR; CWIND 

DATA 1527. 4 Oe OnmeT 

| CONTS 

DATA 3 

? 

' PTS, LCOL, # OF TIMES THERE ARE LAND MASSES 
? 

DATA 13, 0 

DATAWS a2 

DATA TOP 

; 

. BORDER POINTS FOR LAND MASSES 

DATA 16, 155, 55, 172, 90, 175, 130, 165, 175, 150, 175, 127 


DATA 210, 110, 180, 85, 260, 67, 245, 45, 160, 28, 16, 28, 16, 155 
? 


DATA 330, 155, 360, 165, 400, 160, 440, 140, 385, 125, 340, 133 


DATA 370, 142, 330, 155 

: 

; 

DATA 385, 40, 405, 45, 400, 60, 380, 65, 365, 60, 375, 52 
DATA 350, 52, 370, 45, 390, 55, 385, 40 
| CENTERS OF LAND MASSES 

DATA 100, 90 

DATA 380, 150 

DATA 380, 60 

' XYAX, YTOP, YBOTT, YCOL 

DATA 157, 27, 190, 0 

' YXAX, XLEFT, XRITE, XCOL 

DATA 145, 15, 470, 0 
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10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
Aha sag 8 
11120 
a Lag) 
Pir50 
1P13:5 
11140 
11150 
11160 
TEEOD 
11170 
Pia? 5 
11180 
a9 0 
11200 
1220 
P22 0 
1225 
P2350 
11235 
11240 
1#2950 
11255 
41260 
11270 
11280 
11300 


NUMBER OF TEST TRACKS 


DATA 3 

t 

mCEASSSGIS, SPD, TCOLOR, TX, TY FOR EACH TEST TRACK 
| 

DATA "HOSTILE ", 180, 35, 0, 420, 80 

t 


DAs “SURVELLL ", 4, 135, 0, 50, 100 
t 


DATA "UNKNOWN ", 110, 650, 0, 430, 170 
t 


. NUMBER OF MOVES TO TEST UPDATING 

DATA 10 

: #4 TEST TRACKING SUBROUTINE * * * # # 
‘ INPUTS: TRACKS - # OF TEST TRACKS “ 
* OUTPUT: SAMPLE OF TRACKS BEING UPDATED ‘ 
a rs, 2 ae oy er era 


READ TRACKS 
] 


IF TRACKS = O THEN 11200 
FOR I = 1 TO TRACKS 


READ GhAGSS(1), CUS(L), SPD(1), TCOLOR(I), TX(1), TY(I) 
UPD = I 
GOSUB 20000 
ACTIVE(L) = 1 
NEXT I 
t 
t 
FOR MOVE = 1 TO TRACKS 


GOSUB 7000 
NEXT MOVE 
] 


DO$ ae reer 


WHILE DO$ = "" 
FOR UPD = 1 TO TRACKS 
GOSUB 6000 
NEXT UPD 
FOR I = 1 TO 2000 
DO$ = INKEY$ 
IF DO$ = "" THEN NEXT I ELSE 11280 
WEND 
t 


IF DO$ <> CHR$(27) THEN 11200 ELSE DO2$ = INKEY$ 
t 
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11310 IF DO2$ = "P" THEN GOSUB 12000 
11320 IF DO2$ = "S" THEN GOSUB 12100 
11330 IF DO2$ = "T' THEN GOSUB 12200 
11340 IF DO2$ = "U"' THEN GOSUB 12500 
11350 IF DO2$ = "'V" THEN GOSUB 12800 
11360 IF DO2$ = "W'' THEN GOSUB 13500 
LieeGe * 

11380 GOTO 11200 

113909" 

12000 ' * * * * * * * FUNCTION KEY SUBROUTINES 
LZ0uG 

120260" 

12030 '%%% % % HALT PROGRAM 

IAL I0) FUNCTION KEY F6 
12050 

12060 CLS 

LA0G2 °K EY Meas L ish « 

12064 KEY 2, "RUN" + CHR$(13) + CHR$(10) 
12066 KEY 3, "LOAD" + CHR$(34) 

12068 KEY 4, "SAVE" + CHR$(34) 

12070. ' 


12072 KEY 5, "CONT" + CHR$(13) + CHR$(10) 
12074 KEY 6, "PRINT " 


12080 END 

12085 RETURN 

12090 ' 

12100 '%%%% % SUSPEND/CONTINUE PROGRAM 
121510) 7 FUNCTION KEY Fi 
12020 

12713076C0S.—=" 

12140) 


127150 WHILE Goss= """' 

12160 GO$ = INKEY$ 

12170 WEND 

12130 

12190 RETURN 

12200°° % Vee HOOK TRACK 

P27 koe FUNCTION KEY F2 
12220 = 

IZ ZSOMEOCATE 22 amen0) 

LON 

12250 IF HOOK = O THEN 12270 

12252 ACTIVE(HOOK) = 0 

12254 UPD = HOOK 

12256 GOSUB 6000 

12258 ACTIVE(HOOK) = 1 

12259 HK$(HOOK) = ''SO" 

1276C8. 

12270 INPUT ''TRACK TO HOOK: ";HOOK 
12275, LOCATE, 2G 

12276 PRINT " a 
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12280 
z2o2 
12284 
12286 
T2255 
12290 
12300 
12310 
12320 
12330 
12340 
12350 
12360 
12370 
17550 
123590 
12400 
12410 
12420 
2300 
12510 
12520 
12530 
12540 
2550 
12560 
2751 0 
7 1. 
Wa) 2 
i257 3 
12574 
p257 5 
12576 
12580 
P7390 
2 
2 6 
12600 
12610 
12615 
12616 
£2620 
12630 
1265 5 
EZ 656 
12640 
12650 
1265) 
12656 
12660 
12670 


ACTIVE( HOOK) 
UPD = HOOK 
GOSUB 6000 
ACTIVE(HOOK ) 


= 0 


all 


HK$(HOOK) = "S8" 


LOCATE 6, 62 


PRINT "TRACK NO. "3HOOK 


LOCATE 7, 62 
PRINT "CLASS 
LOCATE 8, 62 


PRINT "COURSE 


LOCATE 9, 62 
PRINT "SPEED 
¢ 


RETURN 
t 


* 1b (Aa er Aa 


TRACKS = 


LOCATE 2, 10 
INPUT "ENTER 


IF ADD = 
FOR I = 1 TO 
LOCATE 2, 10 


PRINT " 

LOCATE 2, 10 
INPUT "ENTER 
LOCATE 2, 10 
PRINT " 

LOCATE 2, 10 
INPUT "ENTER 
LOCATE 2, 10 
PRINT " 

LOCATE 2, 10 
INPUT "ENTER 
LOGATE 2, 10 
PRINT " 

LOGATE 2, 10 
INPUT "ENTER 
LOCATE 2, 10 
PRINT " 

LOCATE 2, 10 
INPUT "TRACK 


"CLASS $(HOOK) 


"CUS (HOOK) 


''sSPD(HOOK) 


ENTER NEW TRACK 
FUNCEION KEY F3 


TRACKS + 1 
MOVE = TRACKS 
t 


CLASS 


O THEN 12575 


''s CLASS $ (TRACKS ) 
SIZECL = LEN(CLASS$(TRACKS) ) 
IF SIZECL < 9 THEN ADD = 9 = SIZECL 


ADD: CLASS$(TRACKS) = 


COURSE 


SPEED 


GRID X 


GRID Y 


COLOR 


" .CUS (TRACKS) 


". SPD(TRACKS) 


"TX (TRACKS) 


"TY (TRACKS) 
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CLASS$(TRACKS) + " ":NEXT IL 


" -TCOLOR (TRACKS ) 


12680 
12690 
12700 
2705 
12710 
ye Z 
L275 
12716 
EPA TA 
12320 
12750 
12740 
12750 
12800 
12810 
12820 
12s 
12352 
12834 
126310 
12838 
12632 
12840 
12850 
1235 
12856 
12860 
12870 
12672 
12874 
12376 
12878 
17379 
12880 
12890 
12900 
P2910 
P2515 
12916 
12920 
2930 
12940 
12950 
12995 
12956 
12960 
Noo, 
12980 
12990 
i299 
12996 


LOGATE. 2.10 
PRINT " i 
t 


GOSUB 20000 

GOSUB 7/000 

UPD = MOVE 

GOSUB 20000 

HK$(UPD) = "SO": ACTIVE(UPD) = 1 
GOSUB 6000 

i] 


RETURN 
i] 


t 

7 Fo 7, 9, MOWER a ERA CK 
FUNCTION KEY F4 
q 

IF HOOK = 0 THEN 12840 
ACTIVE(HOOK) = 0 

UPD = HOOK 

GOSUB 6000 

ACTIVE(HOOK) = 1 

HK$(HOOK) = "So" 

LOCATE 2,710 

INPUT "TRACK TO MODIFY: ';HOOK 
HOGAEH 25.0 

PRINT " " 
t 
GOSUB 12300 
ACTIVE(HOOK) = 0 

UPD = HOOK 
GOSUB 6000 
ACTIVE(HOOK) = 1 

HK$(HOOK) = "SO" 

q 


TOGATE 2-710 

INPUT "IS CLASS OK "A$ 

IF A$ <> "Y" THEN LOCATE 2, 40: INPUT "NEW CLASS :";CLASS$(HOOK) 
LOCATE 2, 10 

PRINT "' ‘ 

q 


LOCATE 2, 10 

INPUT "IS COURSE OK "A$ 

IF A$ <> "Y" THEN LOCATE 2, 40: INPUT "NEW COURSE:";CUS (HOOK) 
LOCATE 2, 10 

PRINT "' ‘ 

q 


LOCATE 2, 10 

INPUT "IS SPEED OK "3A$ 

IF A$ <> "Y" THEN LOCATE 2, 40: INPUT "NEW SPEED:'';SPD(HOOK) 
LOCATE 2, 10 

PRINT " 4 
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13000 
13010 
13020 
13030 
3103 5 
13036 
13040 
13050 
13060 
13070 
0/5 
13076 
13080 
13090 
fo LOO 
oO 
HES 
Ibsshale 
i 02 0 
30 
13140 
13145 
13147 
sso) 
13160 
547 0 
13500 
Ses, 
1520 
30 
13540 
1330 
13360 
3305 
13566 
13H 0 
13580 
LS yaye NG, 
20000 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 
20100 
20110 
20120 


LOCATE 2, 10 
INPUT "IS COLOR OK ";A$ 


IF A$} <> "Y" THEN LOCATE 2, 40: INPUT "NEW COLOR: = TCOLOR(HOOK ) 


EOGREE 2. 10 

PRINT '" 

q 

EOCATE 2, 10 

INPUT "IS GRID X OK ":a$ 


IF A$ <> "Y" THEN LOCATE 2, 40: INPUT "NEW GRID X:"3TX(HOOK) 


POGATE 2, 10 
PRINT " 
t 


BOCATE 2, 10 
INPUT "IS GRID Y OK "A$ 


IF A$ <> "Y" THEN LOCATE 2, 40: INPUT "NEW GRID Y:'";TY(HOOK) 


LOCATE 2, 10 
PRINT " 

q 

MOVE = HOOK 
GOSUB 7000 
UPD = HOOK 
GOSUB 6000 

q 


RETURN 
i] 


meee i DELETE A TRACK 
FUNCTION KEY F5 
HOGATE 2, 10 

INPUT "TRACK TO DELETE: ";DEL 


ACTIVE(DEL) = 0 
EOCATE 2, 10 
PRINT " 

¢ 


RETURN 


% 


he oF Oe of fF 


+ 


& 
F 
+ 
+ 
2 
oe 


ke ke ke ke & & eek eK Ke SY 


IF CLASS$(UPD) 
i] 


"HOSTILE '" THEN T$(UPD) 


IF CLASS$(UPD) "HOST SURF" THEN T$(UPD) 
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KK KK KOR SYMBOL ASSIGNMENT KK KK KK 
INPUTS: UPD - TRACK TO HAVE SYMBOL ASSIGNED * 
ve 


OUTPUT: TRACK(UPD) IS ASSIGNED A SYMBOL * 
THAT MATCHES ITS CLASSIFICATION * 


SYM$(4): GOTO 20240 


SYM$(6): GOTO 20240 


PAO 

20140 IF CLASS$(UPD) 
ADI 

20160 IF CLASS$(UPD) 
2 Onn Ore, 

20180 IF CLASS$(UPD) 
20190 ' 

20200 IF CLASS$(UPD) 
ZOO 7” 

20220 IF CLASS$(UPD) 
20250) ~ 

20240 RETURN 

20250 


‘UNKNOWN 
“UNK AIR 
"FIGHTER 
"SURVEILL 


"REF PNT 
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THEN T$(UPD) 
THEN T$(UPD) 
THEN T$(UPD) 
THEN T$(UPD) 


THEN T$(UPD) 


SYM$(3): 
SyMsC5 ee 
DYMS C2): 
SYM$(1): 


SYM$(7): 


GOTO 20240 


GOTO 20240 


GOTO 20240 


GOTO 20240 


GOTO 20240 


10 
20 
30 
40 
50 
60 
70 
80 
90 


APPENDIX B: LISTING OF HEADER.BAS 


SAMPLE NTDS DISPLAY SIMULATOR 
FRAME #1 
DISPLAY WINDOW WITH GRID 


"CLEAR THE DISPLAY 


iia 


APPENDIX C: LISTING OF INIT.BAS 


100 ' « *% *« *& *& %& %& % «INITIALIZATION AND TABLES “* * * *% * * ov % 

iy 0 

be 8 

130 OPTION BASE 1 "ARRAY SUBSCRIPT LOWER BOUND = 1 
ALON 


150 DIM GLASS$(10), CUS(10)-SPDG@0) palcolonGe) 

160 DIM TX(10), TY(10), XENCCWO)—] YUNGGIO) = so ers Cio 

170 DIM SYM$(10), LDR$(8), PTS(3), LCOL(3), HK$(10), ACTIVE(10) 

180" 

190 ' SYMBOL TABLE 

200 ' 

210 SYM$(1) = "BM+0,-3 R3 D3 BM-6,0 D3 R3 BM+0,+3" 

220 SYM$(2) = "BM+0,-3 L3 D3 BM+0,+3" 

230 SYM$(3) = "BM+0,-3 R3 D6 L6 U6 R3 BM+0,+3" 

240 SYM$(4) = "BM+0,-3 R2 F2 D3 G2 L4 H2 U3 E2 R2 BM+0,+3" 

250 SYM$(5) = 'BM+0,-3 R3 D3 BM-6,0 U3 R3 BM+0,+3" 

260 SYM$(6) = "BM+0,-3 F3 G3 H3 E3 BM+0,+3 

270 SYM$(7) = "U3 R3 D6 L6 U6 R3 D6 U3" 

280 SYM$(8) = "" 

290 SYM$(9) = "" 

300 SYM$(10) = "" 

5104" 

5200 

ooOn. SPEED LEADER TABLE 

340 ' 

350 LDR$(1) aes 

360 LDR$(2) = "E3" 

370° LORS 3) i= Ro. 

380 LDR$(4) = "F3" 

390 LDR$(5) = "D4" 

400 LDRS (6) -eucee 

410 LDRSty = som 

420 EDRS (Ss eee. 

430 ' 

4400 

450 ' START WITH NO TRACKS 

460 ' 

470 TRACKS = 0 
t 
t 


480 
490 
500 
510 FOR 1 = 1°20 32 P1s(1)3— aN 

t 

t 

¢ 


INITIALIZE PTS ARRAY ELEMENTS TO 1 


520 
530 
540 
560 KEY 1, CHRSiC27 ets 


DEFINE FUNCTION KEYS 


ee 


570 KEY 2, CHR$(27) + "T" 
580 KEY 3, CHR$(27) + "“uU" 
590 KEY 4, CHR$(27) + "Vv" 
600 KEY 5, CHR$(27) + "w" 
a 


B@seKHY 6, CHR$(27) + “p" 

610 ' 

620 ' INITIALIZE HK$ AND ACTIVE 
630 ' 


640 FOR I = 1 TO 10 
650 HK$(I) = "SO" 
660 ACTIVE(L) = 0 
670 NEXT I 

680 ' 
690 ' DISPLAY FUNCTION KEY FUNCTIONS 
780 ' 

7a) COLOR 0,7 
PAOMLOCATE 25,5 

730 PRINT " F1 " 
PAO0eLOCATE 25, 19 
750 PRINT " F2 " 
POORMEOCATE 25, 29 
770 PRINT " F3 " 
780 LOCATE 25, 40 
790 PRINT " F4 " 
800 LOCATE 25, 52 
810 PRINT " F5 " 
820 LOCATE 25, 64 
830 PRINT " F6 " 
840 COLOR 7, 0 

850 LOCATE 25, 9 
860 PRINT "SUSP/CONT" 
B7O@eEOCGATE 25, 24 
880 PRINT "HOOK" 
890 LOCATE 25, 34 
900 PRINT "ENTER" 
BTOMELOGATE 25, 45 
920 PRINT "MODIFY" 
930 LOCATE 25, 57 
940 PRINT "DELETE" 
950 LOCATE 25, 69 
960 PRINT "HALT" 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
Taal 
Lab 7218 
Le, 
1140 
1S 
1160 
1170 
1180 
ala 0, 
1200 
LO 
748, 
zs) 
1240 
1250 
1260 
1270 
1280 
ZO 
200 
4999 


APPENDIX D: LISTING OF HARNESS.BAS 


. GET WINDOW PARAMETERS 


READ! XUL, YUL; XLRo VLR CuLND 


DRAW THE WINDOW 


GOSUB 5000 
g 


GET LAND PARAMETERS 


READ CONTS 
i] 


DRAW LAND MASSES 


GOSUB 8000 
i] 


GET GRID PARAMETERS 


READ XYAX, YTOP, YBOTT, YCOL 
READ YXAX, XLEFT, XRITE, XCOL 
t 


DRAW THE GRID 


GOSUB 5200 


RUN UPDATE TESTS 


GOSUB 11000 


END 
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"HOW MANY LAND MASSES? 


APPENDIX E: LISTING OF WINDOW.BAS 


S0Ge ~ 
5010 
5020 
5030 
5040 
5050 


t 

' * INPUTS: XUL, YUL - UPPER LEFT-HAND COORDINATES 

t 

t 

t 
5060 ' * OUTPUT: SOLID WINDOW, XLR - XUL PIXELS WIDE, 

t 

t 

t 

t 

t 


* XLR, YLR - LOWER RIGHT-HAND COORDINATES 
s CWIND - COLOR OF WINDOW 


5070 te YLR - YUL PIXELS DEEP, COLOR CWIND 
5080 
5090 
5100 
5110 
5120 LINE (XUL, YUL) - (XLR, YLR), CWIND, BF 
ELS 0 

5140 RETURN 

Bilso | 

5160 ' 
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~~ ot won KO DRAW WINDOW SUBROUTINE Keen Ne Teas 


APPENDIX F: EISTING” CE ReAxES.5AS 


5200 ' tee Siri Se COORDINATE AXES SUBROUTINE Sede sae See) Te eee 
5210 ' ¥ aS 
5220 ' * INPUTS: XYAX, YTOP, YBOTT - VERTICAL AXIS COORDINATES * 
5 3 On mec YXAX, XLEFT, XRITE - HORIZONTAL AXIS COORDINATES * 
5240 a ass XCOL, YCOL - GRID COLORS oh 
B250 "x 
5260 ' * OUTPUT: PROPERLY SCALED SET OF COORDINATE AXES, * 
SITU RaeA) fos: OF XCOL AND YCOL % 
5280 ' * ¥ 
5290 : se otk whe Jeu seven se se terete ye Se ye VK See ae Pi ae SS ee ae 
5300 ' 

Bey) 

5320 HSCALE = (XRITE - XLEFT)/20 "HORIZONTAL SCALE MULTIPLIER 
5330 VSCALE = HSCALE * .46 "VERTICAL SCALE MULTIPLIER, 
5340 "FOR PROPER ASPECT RATIO 
5351005 DRAW VERTICAL AXIS 

5360 ' 


5365 LINE (XYAX-1, YTOP) - (XYAX+1, YBOTT), CWIND, BF 
5370 LINE (XYAK> YTOP)) = Gaya ey bOLl) -5 .Gor 

5380 ' 

5390 ' DRAW HORIZONTAL AXIS 

YN OO) 

5405 LINE (XLEFT, YXAX-1) - (XRITE, YXAX+1), CWIND, BF 
5410 LINE (XLEFT, YXAX) - (XRITE, YXAX), XCOL 

5420 * 

Sag00 DRAW HORIZONTAL SCALE DIVISIONS, LEFT 
5440 ' 

5450 FOR H = XYAX TO XLEFT STEP -HSCALE 

5460 LINE (H, YXAX-2) - (H, YXAX+2), XCOL 

5470 LINE (H+1, YXAX-2) - (H+1, YXAX+2), XCOL 

5480 NEXT H 

5490 ' 

5500 ' DRAW HORIZONTAL SCALE DIVISIONS, RIGHT 
510. 

5520 FOR H = XYAX TO XRITE STEP HSCALE 

5530 LINE (H, YXAX-2) - (H, YXAX+2), XCOL 

5540 LINE (H+1, YXAX-2) - (H+1, YXAX+2), XCOL 

5550 NEXT H 

SO) 

On DRAW VERTICAL SCALE DIVISIONS, UPPER 
boom 

5590 FOR V = YXAX TO YTOP STEP -VSCALE 

5600 LINE (XYAX-4, V) - (XYAX+4, V), YCOL 

5610 NEXT V 

5620 ' 

5630 ' DRAW VERTICAL SCALE DIVISIONS, LOWER 
5620) 
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5650 
5660 
5670 
5680 
5690 
5700 
S10 
Di 20 
53.0 
5740 
Da) 
5760 


FOR V = YAAX TO YBOTT STEP VSCALE 


LINE (XYAX-4, V) - (XYAX+4, V), YCOL 
NEXT V 
t 
RETURN 
t 
t 
: THIS AXES SUBROUTINE IS BASED ON THE PROGRAM 
: 9-2, PAGE 9-15, IN THE CONTINUING EDUCATION 
j CORRESPONDENCE COURSE "COMPUTER GRAPHICS", 
: WRITTEN FOR HEATHKIT/ZENITH BY 
: JAMES C. ADAMS 
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6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6100 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6225 
6230 
6240 
6250 
6255 
6260 
627 0 
6280 
6290 
6295 
6300 
6305 
6310 
6320 
Oa272 
6324 
6330 
6340 
6350 
6360 
6370 
6374 
6275 
6376 
6380 
6390 


APPENDIX G: 


tow wk ow we owe ow UPDATE TRACKS SUBROUTINE * 
t ales 

' * INPUTS: UPD - OF TRACK TO UPDATE 
t <t 

' * OUTPUT: TRACK UPD IS UPDATED 

' we 

tw we se ke oe oe ee ee ee ee ee 
t 

' 

' 

' 

PERFORM ALL LOOK-UPS ONLY ONCE 
' 

UPDX = TX(UPD) 

UPDY = TY(UPD) 

UPDT$ = HK$(UPD) + T$(UPD) 

UPDL$ = L$(UPD) 

HORZUP = XINC(UPD) 

VERTUP = YINC(UPD) 


COLUP = TCOLOR(UPD) 
t 


IF ACTIVE(UPD) = 2 THEN 6375 
UPGND = POINT(UPDX+2, UPDY+1) 


LISTING OF UPDATE.BAS 


we Se ele Se ale ale 
ee ray a ray Phy a 


a a 4 a a a a Pay ri) 


ON UPGND+1 GOSUB 6520, 6530, 6540, 6550, 6560, 6570, 6580, 6590 


WANT$ = COL$ + UPDT$: ALSO$ = COL$ + UPDL$ 
t 


PSET (UPDX, UPDY), UPGND 
DRAW WANT$ 

PSET (UPDX, UPDY), UPGND 
DRAW ALSO$ 

DRAW "SO" 

q 


IF ACTIVE(UPD) = 0 THEN 6490 
UPDX = UPDX + HORZUP 

UPDY = UPDY + VERTUP 

IF UPDX<15 OR UPDX>470 THEN 6482 
IF UPDY<27 OR UPDY>190 THEN 6482 


UPGND = POINT(UPDX+2, UPDY+1) 
t 


IF UPGND <> COLUP THEN 6375 
IF UPGND < 2 THEN COLUP = 7 ELSE COLUP = 


"DRAW OLD SYMBOL IN 
"REVERSE COLOR 


‘UPDATE POSITION 


"CHECK BACKGROUND COLOR 
OF NEW LOCATION 
"MAKE SYMBOL OPPOSITE 

' OF BACKGROUND 


ON COLUP+1 GOSUB 6520, 6530, 6540, 6550, 6560, 6570, 6580, 6590 


WANT$ = COL$ + UPDT$: ALSO$ = COL$ + UPDL$ 
t 


PSET (UPDX, UPDY), COLUP 
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"DRAW NEW SYMBOL 


6400 
6410 
6420 
6425 
6430 
6440 
6450 
6460 
6480 
6482 
6490 
6500 
6510 
6520 
6530 
6540 
p50 
6560 
6570 
6580 
6590 


DRAW WANT$ 


PSET (UPDX, UPDY), COLUP 


DRAW ALSO$ 
DRAW "So" 
t 

TX (UPD) 
TY (UPD) 


UPD 


ACTIVE(UPD)=0 
RETURN 


COL$ = "CO": 
eons = "C1" 
COL$ = "C2": 
6OLS = "C3": 
Course] Ca": 
COL$ = "C5": 


COL$ = "C6": 
COL$ = "C7": 


UPDX 


yi 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
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‘STORE NEW POSITION 


7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7210 
71130 
7140 
(ae 
7160 
70 
7180 
7190 
7200 
7210 
7220 
Uae. 
7240 
hao0 
7260 
1276 
7280 
7290 
7300 
7210 
7320 
7330 
7340 
7350 
7360 
7370 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 


APPENDIX H: 


LISTING OF MOVE.BAS 


' ow ve ve wow vt = SYMBOL MOVEMENT CALCULATOR * * * * * 

t + ai 

' oss INES. ovr - TRACK TO CALCULATE FOR * 
fo ay 

' * OUTPUT: XINC, YINC, SCALE FACTOR FOR SPEED * 

' o* LEADER OF EACH ACTIVE TRACK ARE we 
a CALCULATED AND STORED * 

: ve ve 

: wkkkeKe Rk EEE RR OK ee ee 

' 

' 

' 

‘ 

CALCULATE INCREMENTS BASED ON COURSE 

' 

IF CUS(MOVE) <= > THEN 7400 

IF CUS(MOVE) <= 22.5 THEN 7410 

IF CUS(MOVE) <= 45 THEN 7420 

IF CUS(MOVE) <= 67.5 THEN 7430 

IF CUS(MOVE) <= 85 THEN 7440 

IF CUS(MOVE) <= 95 THEN 7450 

IF CUS(MOVE) <= 112.5 THEN 7460 

IF CUS(MOVE) <= 135 THEN 74/70 

IF CUS(MOVE) <= 157.5 THEN 7480 

IF CUS(MOVE) <= 17> THEN 7490 

IF CUS(MOVE) <= 185 THEN 7500 

IF CUS(MOVE) <= 202.5 THEN 7510 

IF CUS(MOVE) <= 225 THEN 7520 

IF CUS(MOVE) <= 247.5 THEN 7530 

IF CUS(MOVE) <= 265 THEN 7540 

IF CUS(MOVE) <= 272 TaBNey 00 

IF CUS(MOVE) <= 292.5 THEN 7560 

IF CUS(MOVE) <= 315 THEN 7570 

IF CUS(MOVE) <= 337.5 THEN 7580 

IF CUS(MOVE) <= So) TMENeioUC 

' 

' 

XINC(MOVE) = 8: YINC(MOVE) = 0: L$(MOVE) = LDR$(3): GOTO 7600 
XINC(MOVE) = 7: YINC(MOVE) = -3: L$(MOVE) = LDR$(2): GOTO 7600 
XINC(MOVE) = 5: YINC(MOVE) = -5: L$(MOVE) = LDR$(2): GOTO 7600 
XINC(MOVE) = 5: YINC(MOVE) = -5: L$(MOVE) = LDR$(2): GOTO 7600 
XINC(MOVE) = 3: YINC(MOVE) = -7: L$(MOVE) = LDR$(2): GOTO 7600 
XINC(MOVE) = 0: YINC(MOVE) = -8: L$(MOVE) = LDR$(1): GOTO 7600 
XINC(MOVE) = -3: YINC(MOVE) = -7: L$(MOVE) = LDR$(8): GOTO 7600 
XINC(MOVE) = -5: YINC(MOVE) = -5: L$(MOVE) = LDR$(8): GOTO 7600 
XINC(MOVE) = -5: YINC(MOVE) = -5: L$(MOVE) = LDR$(8): GOTO 7600 
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7490 XINC(MOVE ) 


I 
1 
~ 


: YINC(MOVE) = -3: L$(MOVE) = LDR$(8): GOTO 7600 


7500 XINC(MOVE) = -8: YINC(MOVE) = 0: L$(MOVE) = LDR$(7): GOTO 7600 
7510 XINC(MOVE) = -7: YINC(MOVE) = 3: L$(MOVE) = LDR$(6): GOTO 7600 
7520 XINC(MOVE) = -5: YINC(MOVE) = 5: L$(MOVE) = LDR$(6): GOTO 7600 
7530 XINC(MOVE) = -5: YINC(MOVE) = 5: L$(MOVE) = LDR$(6): GOTO 7600 
7540 XINC(MOVE) = -3: YINC(MOVE) = 7: L$(MOVE) = LDR$(6): GOTO 7600 
7550 XINC(MOVE) = 0: YINC(MOVE) = 8: L$(MOVE) = LDR$(5): GOTO 7600 

7560 XINC(MOVE) = 3: YINC(MOVE) = 7: L$(MOVE) = LDR$(4): GOTO 7600 

7570 XINC(MOVE) = 5: YINC(MOVE) = 5: L$(MOVE) = LDR$(4): GOTO 7600 

7580 XINC(MOVE) = 5: YINC(MOVE) = 5: L$(MOVE) = LDR$(4): GOTO 7600 

7590 XINC(MOVE) = 7: YINC(MOVE) = 3: L$(MOVE) = LDR$(4): GOTO 7600 

7595 XINC(MOVE) = 8: YINC(MOVE) = 0: L$(MOVE) = LDR$(3) 

7600 ' 

oo CALCULATE AMOUNT OF INCREMENT, SPEED LEADER 

7620 ' SCALE, BASED ON SPEED 

7630 ' 


7640 IF SPD(MOVE) >= 100 THEN 7690 
7641 IF SPD(MOVE) <> 0 THEN 7650 


7642 XINC(MOVE) = 0 
7643 YINC(MOVE) = 0 
7644 L$(MOVE) = "" 
7645 GOTO 77/0 


7650 XINC(MOVE) INT(.5 * XINC(MOVE) ) 
7660  YINC(MOVE) = INT(.5 * YINC(MOVE) ) 
7670 L$ (MOVE) = "S2" + L$(MOVE) 

7680 GOTO 7770 

7690 LF SPD(MOVE) <= 600 THEN 7770 

7700 XINC(MOVE) = INT(2 * XINC(MOVE) ) 
7710 YINC(MOVE) = INT(2 * YINC(MOVE) ) 
7720 L$(MOVE) = "S8" + L$(MOVE) 

7 Tiel M 

7770 RETURN 

p70) * 
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8000 
8010 
8020 
8025 
8030 
8040 
8050 
8060 
8070 
8075 
8080 
8090 
8100 
8110 
8120 
8125 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
3550 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 


APPENDIX I: LISTING OF LAND.BAS 


took & ok ok wk oe & DRAW LAND SUBROUTINE eok vod ok dove 
' ae Je 
' * INPUTS: PTS - ARRAY OF #s OF BORDER POINTS * 
55 CONTS - # OF LAND MASSES * 
t ale we 
' * QUTPUT: PLOTTED LAND MASSES, IN SPECIFIED COLORS * 
ee, 3 rs 
| le te te le te te ee tle te ke oe oe se eee 60s. Oe ee e te te ke te ok ck oe 
t 
IF CONTS = O THEN RETURN "NO LAND MASSES, NO DRAW 
t 
FOR I = 1 TO CONTS 

READ PTS(1I), LCOL(I) 
NEXT I 
| 
DIM LANDI(PTS(1), 2), LAND2(PTS(2), 2), LANDS (PTS(s eee 


FOR ISLE = 1 TO PTS(1) 

READ LANDI(CISLE, 1), LANDI(ISLE, 2) 
NEXT ISLE 
t 


FOR ISLE =" TO PTS@2) 

READ LAND2(ISLE, 1), LAND2(ISLE, 2) 
NEXT ISLE 
| 


FOR ISLE = 1 TO PTS(3) 


READ LAND3(ISLE, 1), LAND3(ISLE, 2) 
NEXT ISLE 
t 
PSET (LAND1(1,1), LAND1(1,2)), LCOL(1) 
FORMS =? TO PTS In 
LINE - (LANDI(ISLE, 1), LANDI(ISLE, 2)), LCOL(1) 
NEXT ISLE 
t 
READ CENTX, CENTY 


PAINT (CENTX, CENTY), LCOL(1), LCOL(1) 
t 
IF PTS(2) < 2 THEN RETURN 
t 
PSET (LAND2(1,1), LAND2(1,2)), LCOL(2) 
FOR ISLE = 2 TO PTS(2) 
LINE - (LAND2(ISLE, 1), LAND2(ISLE, 2)), LCOL(2) 
NEXT ISLE 
t 


READ CENTX, CENTY 
t 
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BasQ PAINT (CENTX, CENTY), LCOL(2), LCOL(2) 
8440 ' 

8450 IF PTS(3) < 2 THEN RETURN 

8460 ' 

8470 PSET (LAND3(1,1), LAND3(1,2)), LCOL(3) 
8480 FOR ISLE = 2 TO PTS(3) 

8490 LINE - (LAND3(ISLE, 1), LAND3(ISLE, 2)), LCOL(3) 
8500 NEXT ISLE 

8510 ' 

8520 READ CENTX, CENTY 

8530 ' 

8540 PAINT (CENTX, CENTY), LCOL(3), LCOL(3) 
8550 ' 

8560 RETURN 
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APPENDIX J: LISTING OF DATA.BAS 


1OOOO §' wkeeskveckebdevecksleve DATA dedevedevevevevedtevevese te 

10010 ' 

10020 ' XUL, YUL, XLR, YLR, CWIND 

10030 DATA 15, 27, 470, 190, 7 

10040 ' CONTS 

10050 DATA 2 

10060 ' PTS(1), LCOL(1)) PIS@2) )=urcon@ 

10070 DATA 8, 3 

10080 DATA 5, 5 

10090 ' BORDER POINTS FOR LAND MASS ONE 

10100 DATA 100, 125, 120, 150, 130, 140,125. 1235-3 
10110 DATA 160, 127.9125.) 125, 100,mi2s 

10120 ' BORDER POINTS FOR LAND MASS TWO 

10130 DATA 240, 100, 270, 105, 290, 90,, 265, 85.5 240-3106 
10140 ' BORDER POINTS FOR DUMMY LAND MASS 

10150 DATA 1, 1 

10160 ' CENTER OF LAND MASS ONE 

10170 DATA 120, 135 

10180 ' CENTER OF LAND MASS TWO 

10190 DATA 265, 95 

10200 ' XYAX, YTOP, YBOTT, YCOL 

10210 DATA 157, 27, 190, 0 

10220 eA ALERT, XRETEO eK COl 

10230 DATA 145, 15, 470, 0 

10235 DATA 3 

10240 " TRACK(), CLASS$(1), CUS@l). 9SPD(1), TeoLon(i).. 1x eee 
10250 DATA "HOSTILE", 180, 35, 0, 420, 80 

10260 " TRACK(2), CLASS$(2). CUS(2).. cepC?)-) TCOLOR(2)ee a (enon 
10270 DATA "FRIENDLY", 4, 135, 0, 50, 100 


1OZ 7 Sa: TRACK (3) 
10280 DATA "UNKNOWN", 110, 650, 0, 430, 170 
10290 ° NUMBER OF MOVES TO TEST UPDATING 


10300 DATA 5 
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11000 
EO AO 
1LEOZ0 
11030 
11040 
11050 
11060 
HEC7 0 
11080 
11090 
11100 
TO 
11120 
P25 
LARS 6, 
11135 
1156 
11140 
ia 
1S 0 
1itoo 
7 0 
ayes, 
11180 
11190 
iZ00 
11210 
i220 
22 5 
1enz 5 0 
J5iL 7) Bye) 
11240 
1250 
i232 
11260 
11270 
i230 
11300 
11310 
1320 
Pre 30 
11340 
i350 
1136.0 
37 0 
11380 


ale we ale 
@ PAY @e 


% st 


INPU 


% 


> 


OUTP 


+ 


2 


q 
4 
1 
t 
t 
t Oy oh oh 

# PAY @e 
t 


APPENDIX K: 


ate ole ato 
ray ray @e 


JER 


0 


Se 
cAY 


READ TRACKS 
q 


Se 
PAY 


TRACKS - # OF TEST TRACKS 


SAMPLE OF TRACKS BEING UPDATED 


TEST TRACKING SUBROUTINE 


LISTING OF TRACKING.BAS 


ate ale ole ale ale ate le tle 
¢ # @e ee a @e #e @e 


IF TRACKS = 0 THEN 11200 


FOR I = 1 TO TRACKS 
READ CLASS$(1), CUS(I), SPD(I), TCOLOR(I), TX(I), TY(1) 


UPD =I 
GOSUB 20 


000 


ACTIVE(L) = 1 
IF CLASS$(1) = "REF PNT 


NEXT I 
t 


FOR MOVE = 

GOSUB 70 
NEXT MOVE 
q 


DO$ - Oe 


WHILE DO$ 
FOR UPD 
GOSUB 
NEXT UPD 


1 TO TRACKS 


00 


= 1 TO TRACKS 


600 


0 


FOR I = 1 TO 2000 
DO$ = INKEY$ 


iF DO$="" THEN NEXT I ELSE 11280 


WEND 
i] 


IF DO$ <> 
t 

IF DO2$ 
IF DO2$ = 
IF DO2$ = 
IF DO2$ = 
IF DO2$ = 
IF DO2$ = 


GOTO 11200 


CHR$(27) 


wp 
ns 9 
el Held 
Mai Th 
oy" 
aH ig 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


THEN 11200 ELSE DO2$ = INKEY$ 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


'" THEN ACTIVE(L) = 2 


12000 
12100 
12200 
bz o00 
12800 
i500 


ey, 


12000 
12010 
12020 
12030 
12040 
12050 
12060 
12062 
12064 
12066 
12068 
12070 
12072 
12074 
12080 
12085 
12090 
12100 
ZnO 
12120 
Ze 0 
12140 
12150 
12160 
12520 
12180 
ILS, 
12200 
12210 
12220 
12250 
12240 
ZZ 50 
222 
12254 
12256 
12250 
12259 
12260 
12270 
T2275 
12276 
12280 
12252 
12284 
12286 


APPENDIX L: LISTING OF KEYS.BAS 


"wv k * *&# *& * FUNCTION KEY SUBROUTINES 
t 
t 
'"2%% % % %$HALT PROGRAM 
; FUNCTION KEY F6 
i] 
CLS 
KEY 22 Lists. 
KEY 2, "RUN" + CHR$(13) + CHR$(10) 
KEY 3, "LOAD" + CHR$(34) 
4, 


KEY "SAVE" + CHR$(34) 
t 


KEY 5, "CONT" + CHR$(13) + CHR$(10) 
KEY 6, "PRINT " 


END 
RETURN 
i] 
'""2%% % % ##SUSPEND/CONTINUE PROGRAM 
: FUNCTION KEY F1 
t 
GO$ = eee 
t 
WHILE GOS = "! 
GO$ = INKEY$ 
WEND 
t 
RETURN 
"I. I is “HOOK, “TRACK 
' FUNCTION KEY F2 
t 
LOCATE EO 


IF HOOK = 0 THEN 12270 


ACTIVE(HOOK) = 0 
UPD = HOOK 
GOSUB 6000 
ACTIVE(HOOK) = 1 


HK$(HOOK) = "So" 


INPUT "TRACK TO HOOK: ';HOOK 

LOCALE 2 ae 

PRINT " e 
q 


ACTIVE(HOOK) = 0 


UPD = HOOK 
GOSUB 6000 
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12288 
12270 
12300 
ala cals, 
i232 0 
12330 
12340 
12350 
12360 
2377-0 
12380 
12390 
12400 
12410 
12420 
1200 
i 10 
12520 
IAS, S18, 
12540 
12550 
12560 
12570 
72 oa 
12a 2 
i273 
12574 
1257°5 
Zero 
i200 
12590 
iZ95 
12590 
12600 
oe 
12615 
12616 
PGi. 0 
12630 
12635 
12636 
12640 
12650 
1269'5 
12656 
12660 
2670 
12680 
12690 
12700 
12702 


ACTIVE(HOOK ) 


= 1] 


HK$(HOOK) = "S8" 


LOCATE 6, 62 


PRINT "TRACK NO. ";HOOK 


LOCMEE 7, 62 
PRINT "CLASS 
LOCATE 8, 62 


PRINT "COURSE 


LOCATE 9, 62 
PRINT "SPEED 


''s CLASS$ (HOOK) 
'"'sCUS (HOOK) 


". SPD(HOOK) 


ENTER NEW TRACK 
FUNCTION KEY F3 


¢ 

¢ 

RETURN 

To ‘To ‘To To ‘To 

¢ 

TRACKS = TRACKS + 1 


MOVE = TRACKS 
t 


LOCATE 2, 10 


INPUT "ENTER CLASS 


" .CLASS$(TRACKS) 


SIZECL = LEN(CLASS$(TRACKS) ) 
IF SIZECL < 9 THEN ADD = 9 - SIZECL 
IF ADD=0 THEN 12575 


HOReE = 1 ‘TO 
HOGATE 2, 10 
PRINT " 

LOCATE 2, 10 


INPUT "ENTER COURSE 


HOGATE 2, 10 
PRINT " 

ECGAtE 2, 10 
INPUT "ENTER 
ROGATE 2. 10 
PRINT " 

LOCATE 2, 10 
INPUT “ENTER 
HOGATE 2, 10 
PRINT " 

LOCATE 2, 10 
INPUT "ENTER 
LOCATE 2, 10 
PRINT " 

LOCATE 2, 10 


INPUT "TRACK COLOR 


LOCATE 2, 10 
PRINT " 
t 


IF CLASS$(MOVE) = “REF PNT 


ADD: CLASS$(TRACKS) = CLASS$(TRACKS) + " ":NEXT I 


". CUS (TRACKS ) 
et 

SPEED '";SPD(TRACKS) 
et 

GRID X '";TX(TRACKS) 
a? 

GRID Y '";TY(TRACKS) 
a? 
". TCOLOR(TRACKS ) 


'" THEN ACTIVE(MOVE) = 2 
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12705 GOSUB 20000 

12710 GOSUB 7000 

12712 UPD = MOVE 

12715 GOSUB 20000 

12716 HK$(UPD) = "SO": ACTIVE(UPD) = 1 

12717 GOSUB 6000 

12720" 

12730 RETURN 

12740 ' 

127.502 

17800 "27. 7. 7%? MODERY TRAGK 

128Ons FUNCTION KEY F4 

12820 ' 

12830 IF HOOK = O THEN 12840 

12832 ACTIVE(HOOK) = 0 

12834 UPD = HOOK 

12836 GOSUB 6000 

12838 ACTIVE(HOOK) = 1 

12839 HK$(HOOK) = "SO" 

12840 LOCATE 2, 10 

12850 INPUT "TRACK TO MODIFY: '";HOOK 

127355 LOGAWE 2 .h0 

12856 PRINT " ne 

128607 * 

12870 GOSUB 12300 

12872 ACLIVECHOOK): = 0 

12874 UPD = HOOK 

12876 GOSUB 6000 

12878 ACTIVE(HOOK) = 1 

12879 HK$(HOOK) = "So" 

12880 ' 

12890 LOCATE 2, 10 

12900 INPUT "IS CLASS OK "3A$ 

12910 IF A$ <> "Y™" THEN LOCATE 2, 40 : INPUT "NEW CLASS :";CLASS$(HOOK) 
1295: LOCATE, 2-040 

12916 PRINT " " 
127920°" 

12930 LOCATE 2, 10 

12940 INPUT "IS COURSE OK ";A$ 

12950 IF A$ <> "Y" THEN LOCATE 2, 40 : INPUT "NEW COURSE:";CUS(HOOK) 
12955: LOCAPE2 =) 10 

12956 PRINT " u 
12960 ' 

12970 LOCATE 2, 10 

12980 INPUT "IS SPEED OK ";A$ 

12990 IF A$ <> "Y" THEN LOCATE 2, 40 : INPUT "NEW SPEED: ";SPD(HOOK) 
12995 LOCATE 2, 10 

12996 PRINT " 
13000 ' 

13010 LOCATE 22 aeG 

13020 INPUT "IS COLOR OK ";A$ 
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13030 
13035 
13036 
13040 
13050 
13060 
13070 
13075 
13076 
13080 
13090 
13100 
13110 
ilps yea es) 
13116 
Wel ae, 
13130 
13140 
13145 
13147 
15150 
13160 
13170 
13500 
13510 
13520 
P3550 
13540 
5500 
13560 
13565 
13566 
i357 0 
13580 


Pees <>) ¥ ' THEN LOCATE 2, 40 


LOCATE 2, 10 
PRINT " 
t 


POGATE: 2.210 


INPUT "IS GRID X OK "A$ 
Mums <> oy THEN LOGATE 2, 40 : 


LOCATE 2, 10 
PRINT " 
t 


OCATE 2.110 


INPUT "IS GRID Y OK ";A$ 
IF A$ <> "Y" THEN LOCATE 2, 40 : 


LOCATE 2, 10 
PRINT “ 
t 


MOVE = HOOK 
GOSUB 7000 

UPD = HOOK 

GOSUB 6000 

t 

RETURN 

¢ 

i] 
t 
i] 


EGGNTE 2e610 


To To To To To DELETE A TRACK 
- FUNCTION KEY F5 


INPUT "TRACK TO DELETE: ";DEL 
t 


ACTIVE(DEL) = 0 
LOCATE 2, 10 
PRINT " 

t 


RETURN 


Se 


: INPUT "NEW COLOR: ';TCOLOR(HOOK ) 


INPUT "NEW GRID X: '3;TX(HOOK) 


INPUT "NEW GRID Y: ";TY (HOOK) 


20000 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 
20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 
20200 
20210 
ZOZZ0 
20230 
20240 
20250 


APPENDIX M: 


LISTING OF MATCH.BAS 


wow & we we te oe * SYMBOL ASSIGNMENT Ceci cy eh eG 
a * 
: INPUTS: UPD - TRACK TO HAVE SYMBOL ASSIGNED * 
; . OUTPUT: TRACK(UPD) IS ASSIGNED A SYMBOL : 
: THAT MATCHES ITS CLASSIFICATION “ 
: 4 Ke we te ee se ee ee ' 
| 

a8 CLASS$(UPD) = "HOSTILE " THEN T$(UPD) = SYM$(4): 
ay CLASS$(UPD) = "HOST SURF" THEN T$(UPD) = SYM$(6): 
fa CLASS$(UPD) = "UNKNOWN ' THEN T$(UPD) = SYM$(3): 
ne CLASS$(UPD) = "UNK AIR " THEN T$(UPD) = SYM$(5): 
8 CLASS$(UPD) = "FIGHTER '" THEN T$(UPD) = SYM$(2): 
ze CLASS$(UPD) = "SURVEILL '' THEN T$(UPD) = SYM$(1): 
a CLASS$(UPD) = "REF PNT " THEN T$(UPD) = SYM$(7) 
SBIR 
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GOTO 


GOTO 


GOTO 


GOTO 


GOTO 


GOTO 


20240 


20240 


20240 


20240 


20240 


20240 


APPENDIX N: USER'S MANUAL FOR DISPLAY SIMULATOR 


A. HOW TO USE THIS SIMULATOR 
The minimum system configuration requirements for this 


NTDS display simulator are as follows: 


- H/Z-100 or compatible computer 
- 128K RAM memory 
- 1 DS/DD 5 1/4" disk drive 
- 2Z-DOS 1.25 operating system 
- ZBASIC interpreter or compiler 
- the file NEWEST.BAS 
or 
- the subroutine files making up NEWEST.BAS, which are: 


-- HEADER.BAS 

-- INIT.BAS 

-- HARNESS.BAS 

-- WINDOW.BAS 

-- AXES.BAS 

-- LAND.BAS 

-- MOVE.BAS 

-- UPDATE.BAS 

-- TRACKING.BAS 

-- DATA.BAS or  DATA1.BAS 
-- MATCH.BAS ; 
-- KEYS.BAS 


B. GETTING STARTED 

"Boot up" the computer system under the Z-DOS operating 
system. After getting the system prompt ensure that the 
default disk drive (if there are two or more) contains’ the 
file ZBASIC.COM (the ZBASIC interpreter), unless using the 
compiled version. If working with the compiled version, 
follow the instructions for compiling and running a ZBASIC 


program that came with the compiler being used. 


od 


1. This step is for users without the file NEWEST.BAS. 
If that file is present, joker omcecomee. 

Type the command "ZBASIC"., This will load the ZBASIC 
interpreter. When it displays its prompt, load any one of 
the subroutine files. Then type MERGE "filename* for each 
of the other files, one by one. Once they are all merged 
type RUN (If any error messages are displayed when 
attempting to do this, one or more of the files may not be 
stored properly. In order to store them properly they will 
have to be loaded when there is no other program stored in 
memory, and saved with the command SAVE "filename", A. This 
saves them in an ASCII format, which allows them to be 
merged with other files). 


2. Load NEWEST. Type RUN. 


C: INTERACTING WITH THE SIMULATOR 

While the simulator is running it accepts user input 
through the use of the special function keys. The special 
function key menu is displayed on line 25 of the mon.icor, 
below the NTDS display. 

The Suspend/Continue key is a double action key -- to 
Suspend the automatic updating of tracks (and all other 
system functions) depress the Fl key. To resume system 
operation depress it again. When it is depressed for the 


"continue" function all tracks will be updated. 
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The Hook key (F2) allows the display of the track 
parameters for one of the tracks in the system. When it is 
depressed the system will request an input at the top of the 
screen. It will prompt the user to input the track number 
Ommeae tracksto hook The input must be a number between 1 
and 10, or an error will result. If the number is the 
number of an active track that track will have its symbol 
enlarged as long as it is hooked, and its parameters 
displayed to the right of the NTDS display area. 

The Enter key (F3) allows a new track to be entered. 
The user will be prompted for inputs at the top of the 
screen. For CLASSS, input the classification of the new 
track (no more than nine characters, please). If the 
classification does not match one the system recognizes, the 
speed leader only will be displayed for the new track. The 
currently recognized inputs are: BAOSTILE', ~ "FIGHTER"; 
"UNKNOWN", “HOST SURF", “REF PNT", "SURVEILL", and "UNK 
A ieee: The CUS (course) should be a number between 0 and 
360, representing degrees true. Speed (SPD) should bea 
positive number, greater than or equal to Zero, representing 
speed in knots. Grid X is the X coordinate of the track, in 
terms of the display. It should be a number in the range of 
15-470. Likewise Grid Y is a display coordinate, and ranges 
from 27-190. Numbers other than these will work, if they 
are within the range of the pixels of the display. The 


Update module tests for the coordinates of the track, 


Je 


however, and the track will not move if placed outside the 
display window. Track Color should be a number between 0-7. 
On the monochrome systems this will not matter unless it is 
0 or 7--on color systems these numbers correspond to the 
colors listed in the User's Manual. 

The F4 key, Modify, will go through the same track 
parameters that were just discussed for the F3 key.. It will 
first ask which track to modify, and the track number must 
be input. The system then hooks that track, and goes 
through each track parameter asking if it is OK. The user 
should input a "Y" if the parameter is fine, anything else 
if it is not. If the response is other than "Y" the user 
Will be requested to input the correct value for that 
parameter, and the hooked track Will be modified 
accordingly. 

The Delete key, F5, asks the user to provide a track 
number, and the track number input will be deleted. Upon 
the next update of the system it will no longer appear on 
the screen. 

The Halt key, F6, provideS a gracious exit from the 
display simulator system. When it is depressed it restores 
the special function keys to their ZBASIC settings, clears 


the screen, and returns the ZBASIC interpreter prompt. 
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Dee ODIPYING THE INITIAL DISPLAY 

The initial display, in its entirety, is determined from 
the DATA module. By modifying the DATA module, or creating 
a new one, and re-merging it with the system, a new initial 
display may be created. There is a caution here: if a new 
(or modified) DATA module is used, the line numbers must 
match all those of the old module, or the unused old numbers 
must be deleted, to prevent erroneous assignments. 

The data should be entered in the order of Figure N.1l, 
within the ranges and for the purposes stated below. 

The first five data values relate to the window. The 
first two of them, XUL and YUL, are the X and Y coordinates 
of the upper left-hand corner of the display window, 
respectively. The X value should fall between 0-480, and 
the Y value between 20-212. The same range restrictions 
apply to the XLR and YLR values, which are the coordinates 
.for the lower right-hand corner of the window. The color of 
the box, a number between zero and 7, is given by CWIND. 

The window parameters are followed by CONTS, the number 
of land masses (or special areas) the initial display will 
contain. The current system limitation is for a maximum of 
3, and this number should not be less than zero. If CONTS 
is zero, the next data value to be read in is XYAX, 
Otherwise there are CONTS number of entries of the variables 


specified within the square brackets ([ ]). 


oD 


For each 'continent' there should be a value pair (PTS, 
LCOlys The PTS is the number of points ( (x,y) coordinate 
pairs ) that specify the border of the land area, LCOL is 


cas AUL 
= IgE 
rs ALR 
= Se Jnl. 
= CWIND 
= CONTS 
= PLS,  LCOL. |e— 7 CehiS Siariins 
= X1l;° Y1, 2, Y27° 3... ANN — eels ee 
[- CENTX,. CENTY _). = CONTS.TIMiES 
= AYAX 
= YEOE 
= YBOrr 
= Me Ol: 
= YXAX 
= y Ua AL 
= ARITE 
= XCOL 
= TRACKS 
| = CLASSS,. CUS, SPDj. TCOLOR EX, TY sea RA Che ier 
= MOVES 


V—_— COC 


Figure N.1l Order of Data Entry 


the color of that piece of land. After the PPS, LCOl) paame 
(one pair for each land area to be input) there are CONTS 
lists of ordered pairs, Xm, Ym, each pair representing a 
border point of the land mass. The final subscript, N, 
should match the PTS number for each particular land mass, 
and XN, YN should match Xl, Yl to ensure that the land mass 
Will be painted properly. After the list of border points 
iS read in, an inteLior podamt CEN ee; Os Geochim 
This should be a point not on the borders (wie inane 
This is the point that determines the area of the screen 


that will be painted in LCOL color. 
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The following four data values specify the vertical grid 
Pamamerecrs;, and the four after that the horizontal grid. 
The XYAX value should fall somewhere between the XUL and XLR 
Values read in earlier. Te foe tne MOriZoOntcalt, Or X, 
coordinate of the Y axis. YTOP and YBOTTOM are the top and 
bottom of the Y-axis, and should match YUL and YLR 
respectively, if the grid is to be from the top of the 
Window to the bottom. The grid's color is determined by 
YCOL, Which should be between 0-7. 

The vertical grid parameters are followed by those for 
the horizontal grid, and they are of the same form. The 
berst, YXAK, 1S the vertical location of the horizontal grid 
line, and should be between YUL and YLR. The xXLEFT and 
XRITE specify the ends of the horizontal grid, and should 
Match XUL and XLR for a full-window grid. The grid color is 
independent of the vertical grid color, and is specified by 
peunoe: 0-7 for XCOL. 

Tf the initial display is to have any test tracks prior 
to user input the number of them is read in through the 
parameter TRACKS. This number should have a value between 
zero and ten, the system currently being limited to ten 
tracks. If TRACKS is zero the next data value is MOVES. 
Otherwise, the data following TRACKS is sets of parameters 
oe EWe IittLal tracks. 

CLASSS is the classification of each test track, and 


should be a character string surrounded by quotes, no longer 


of 


than nine characters (excluding the quotation marks). The 
currently recognized classifications are “HOSTILE — 1o--r 
SURF", "UNK AIR", FREE .PNY’ >, “PPTGHleER=, "SURVEILL" anda 
"UNKNOWN". Any classification other than these will result 
in a symb 1 which consists only of a speed leader for the 
erack. 

CUS and SPD are the course and speed (otminemesaa Tie, 
Should be positive or zero. The course iS in degrees true 
(0-360) and the speed is in knots(0-?). TCOLOR is the track 
color, and should again be a 0-7 number. 

The TX and TY are the grid coordinates of the track's 
initial position. They are pixel coordinates on the screen. 
TX should be between XUL and XLR, T brtwe_n YUL and YLR. 
If they are not one of two things will happen. If they are 
outside the range of the window but within the range of the 
screen they will be drawn on the screen in the specified 
position, and not updated. If they are outside the range of 
the screen (0-639 for x, 0-224 for y) an error will result, 
and the system will be exited. 

The value of MOVES should be zero if TRACKS is zero. It 
represents the number of automatic times the system will 
update the tracks if there is no user input. Actually, this 
1s a hold-over from an earlier version of the system. It 
may be used if the system is modified--otherwise it will be 


ignored. 
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E. UNDERSTANDING THE CODE 

Following 1s a line by line explanation of the code. 
The subsections correspond to the subroutines that make up 
the display simulator system. Each subsection is titled 
Beeouaing tO 1tS Ssulbroutine. The code may be examined by 
following, in order, Appendix A, which is a listing of the 
assembled subroutines, or by following the appropriate 
Appendix for each Subroutine. 

1. Header 

We begin with a header, identifying the program and 
clearing the screen. These statements are lines 10-90. 

2. Init 

The next section of code, “INITIALIZATION AND 
TABLES" (lines 100-960) performs several housekeeping chores 
to set up the prototype. Line 130 sets the array subscript 
lower bound, and lines 150-170 allocate memory for the 
necessary arrays. The symbol and speed leader tables (SYMS 
and LDRS) are initialized in lines 180-440. 

The variable TRACKS iS initialized to zero. Later 
in the program it 1S read from a DATA statement, to 
determine how many tracks the system starts with prior to 
user input. Whenever a track is added, TRACKS is incre- 
mented. If it exceeds ten, the dimension of the parts of 
the TRACK record (see Figure 3.1), a subscript out of range 


error will result. The prototype does no 'garbage 


oo 


collection', as such, and flags inactive tracks with a value 
of zero in the ACTIVE field. 

Line 510 initializes the elements of the PTS array 
to one. This is necessary because of the lack of dynamic 
memory allocation in ZBASIC. The elements of the PIS “array 
are used in the Land module to dimension arrays, and must be 
greater than or equal to one, 

The special function keys are initialized in lines 
530~600. This prototype was developed with a ZBASIC inter- 
preter, ZBASIC, under 2Z-DOS version 1.25. In that 
environment the special function keys are pre-set to provide 
ZBASIC commands. These lines re-set them to generate their 
normal escape sequences when depressed. 

The HKS and ACTIVE fields of each track are 
initialized in lines 620-670. This prototype was developed 
for color and/or monochrome use. The current Zenith 
monitors at NPS are monochrome. For that reason we elected 
to indicate a hooked track by enlarging its symbol. The HK$ 
field will always be drawn as part of the symbol. If the 
track is not hooked it will be scale zero ("S00"), for normal 
SiZee For hooked tracks it is changed to "S8", for double 
size. The ACTIVE field is primarily used to determine which 
tracks are active. Reference points require special 
treatment in this prototype, for efficiency. A more 


detailed explanation is with the Update module. A value of 
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feetieethne ACTIVE. field indicates that the track isa 


reference point. 


Ric mince Cchnebe pertonmed bys sthe Ingato module is the 
display of the function keys menu. Lines 690-960 provide 
the user with reverse video labels of the active function 
keys, and normal video display of their purposes on line 25 
Giewrene “display. This places the menu close to the keys 
involved and out of the main display area. 

3. Harness 

The test harness, or Harness module, follows in 
lines 1000-4999. It grew as the prototype was developed. 
The final line, 4999, which iS an END statement, 1s no 
longer necessary, but was prior to the installation of user 
interaction as a feature. During development and testing 
all inputs were through program lines and DATA statements. 
This may be a good point at which to mention that there are 
some unnecessary lines remaining, many unused line numbers, 
and some sections of code where line numbers are too close 
together. 

The presence of unnecessary lines does not adversely 
affect the performance of the prototype. Some of them are 
left in to allow follow-on researchers to see some history 
of the thought process and development procedures’ used 
before. Most of them are present to allow for spacing and 


readability of the code, and are left in for those reasons. 
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In most cases the line numbers are spaced by tens. 
This allows for the insertion of several lines wherever 
necessary during the ongoing Reenleraneint of the system. 310 
some cases they are closer together, demonstrating the prior 
development and debugging. There are wide gaps in some 
sections of code, illustrating the modular development 
process. It is particularly important when writing files 
which will be merged to attempt to assign line numbers which 
will not risk duplication. 

The Harness module requires little explanation. It 
reads DATA statements to obtain parameters, calls on 
subroutines to make use of the parameters to draw static 
portions of the display, and transfers control to the 
Tracking module in line 1280. 

4. Window 

The Window module, lines 5000-5160, is also self- 
explanatory. It iS Written in general terms, and may be 
used to draw any size box, anywhere on the screen, in any 
color and for any purpose. 

5. Axes 

Most of the modules are written to be useful 
elsewhere. The Axes module iS no exception. We could have 
made use of the previous module, Window, and re-defined what 
have been labelled the window parameters, since Axes also 
draws boxes. This is just one example of extra code being 


Written, and trickiness avoided, ROW clarity and 
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readability. Pils = teature, “abundant code “and prolific 
Variable creation rather than re-using the same variable 
names for different purposes, also enhances maintainability. 

Lines 5320-5330 ensure that aspect ratio 1S 
maintained when the two axes are scaled. Line 5365 draws a 
box one pixel wider on each side than the vertical axis line 
of the window's color. This enables the axis to cross. any 
color land mass without getting lost. Line 5405 does the 
Same thing for the horizontal axis. 

6. Update 

The Update module is, in many ways, the heart of the 
system. It is the module that re-positions the track 
symbols periodically, draws and erases them, and checks to 
see if they fall within the window limits. 

The first thing Update does is look up all array 
Variables that are referenced frequently in the module. 
This saves time when each variable is’ used. It 1s much 
Faster for the interpreter to look up the copy in the local 
Simple variable than to compute the address from an array 
index. Lines 6150-6210 do the copying of array variables 
into local simple variables. 

Line 6230 samples a background point at the current 
symbol position. A common method of eraSing in computer 
graphics, and the one employed here, is to re-draw the 
symbol in the color of its background. Based on the color 


of the local background one of eight subroutines determines 
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the proper color for the string COLS. The reason the 
Statement uSing UPGND + 1 is because the colors are from 0- 
7, but the ON <exp> GOSUB statement requires a number equal 
to or greater than one to branch. 

The string WANTS is then composed of the color and 
the symbol, ALSOS$ is composed of the color and the speed 
leader (both of these being the color of the background in 
this case, to perform an erasure), then each String is drawn 
at the current symbol position. 

In line 6260 the symbol is located at its current 
posit lon Line 6270 draws the symbol, line 6280 relocates 
at symbol center and line 6290 draws the speed leader. The 
scale is returned to normal in line 6295. 

If the symbol is inactive (ACTIVE = 0) this is all 
that is required and line 6305 directs program flow to the 
RETURN statement. For active symbols lines 6310-6320 update 
the position of symbol center and program flow continues. 

Line 6340 samples the background at the updated 
symbol position. If there is no conflict logic similar to 
that just completed for the eraSure, uSing COLUP (the 
current symbol color) rather than UPGND (background color) 
draws the re-located symbol in lines 6375-6425. If there is 
a conflict line 6370 makes the symbol white for dark 
backgrounds and black for light backgrounds. 

Lines 6440-6450 store the updated symbol position in 


the TX and TY fields of the track record. Line 6490 returns 
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femwene calling routine. Each of the lines 6520-6590 
contains two statements, constituting an entire subroutine. 
These are the Subroutines called upon to set COLS, which is 
used to determine the color the symbol will be drawn in. 
7. Move 

The Move module determines how many pixels in each 
direction a symbol will move when it is updated and which 
speed leader will be assigned to a track, based on track 
course and speed. Lines 7160-7350 branch to the appropriate 
line number based on the course, dividing the full circle of 
directions (courses 0-360 degrees true) into 20 Zones. 
Lines 7400-7590 are the lines branched to, only one of which 
Will be executed. They make the assignment of incremental 
values of change in the x and y direction and assign one of 
the eight speed leaders from the speed leader table, then 
branch to 7600. Together these lines (7160-7590) form one 
giant case statement. 

Line 7640 branches to 7690 if the target is not a 
Slow speed track. For slow speed tracks that do have motion 
line 7641 branches to 7650. Lines 7642-7645 handle tracks 
With no motion, ensuring no incremental movement and ~»no 
speed leader. For slow speed tracks that do move lines 
7650-7680 reduce the incremental movement and scale the 
speed leader down. 

Medium speed tracks, treated as the norm, are 


handled by the branch from line 7690-7770, 7770 being the 


IL bs 


RETURN. Lines 7700-7720 handle high speed tracks by 


increasing the incremental movement and scaling up the speed 


leader. 
8. Land 
This is the module that draws the land masses. It 
currently provides for only three land masses. Because 


ZBASIC has no dynamic memory allocation the DIM (dimension) 
statements cannot be executed more than once or an error 
results. For more land masses’ to be introduced to the 
system they must be described by the same number (or fewer) 
points than one of the first three and one of the three land 
arrays re-used, or more land arrays must be added to this 
module in the DIM statement(s). The latter solution is the 
easiest to implement, and will be the easiest for others to 
follow later on. That 1S why it was chosen here, rather 
than simply dimensioning one array large enough to handle 
any probable number of points. 

Line 8075 guards against execution if there are no 
land masses to draw. If there are land masses the variable 
CONTS contains the number, and 1s used as an index in the 
loop of lines 8090-8110, which reads in the numbers of 
points of each of the masses and their color. Line 8125 
sets aside memory for the arrays, as mentioned earlier. 

This module has been designed for zero or three. 
The intention was to make the logic clear, and also to 


provide loops for all three so that only data statements 
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would need to be changed if any number 0-3 were input. That 
is why there are three loops, lines 8130-8150, 8170-8190 and 
Seu =—oZe0ewn1ch redad in the points describing the land 
masses. If there are fewer than three at least one dummy 
point must be in the data statements for each of the unused 
arrays. 

Lines 8250-8280 draw the first land mass (if there 
were none to draw line 8075 would prevent the branch to 
here). Line 8300 reads the coordinates of an interior point 
for the first land mass, and line 8320 paints it. 

If there is only one land mass line 8340 executes 
the RETURN. Otherwise lines 8360-8430 perform the same 
functions for land mass two as 8250-8320 did for land mass 
one. Lines 8450-8540 perform a similar test and conditional 
execution of land mass three function. If there were three 
land masses line 8560 executes the RETURN, otherwise it 
Mould Nave wabready been executed. 

9. Data 

We have already gone over the data format. The Data 
module follows it, interspersing the data with comments for 
elardwey It is recommended that users follow the same 
orocedure. It makes corrective maintenance and enhancement 
much easier. Another design philosophy embodied here and 
encouraged is the matching of one data statement to one read 
statement. Code could be reduced by combining, for example, 


the data in lines 10080 and 10120-10140. Instead we opted 


LOT 


to keep the data on separate lines matching read statements 
in the program. This procedure reduces debugging time (it's 
easy to create mis-matched data/read pairs) and makes the 
module more readable. 

lOseEracking 

This module performs the automatic system updating 
of tracks and monitoring for User inpwe. “GEsis theserm ec. 
program, in essence, whereas the Harness module is the 
initialiZzatdon drivieme 

Line 11080 determines if there are any initial 
tracks in the system. If not line 11100 branches to 11200, 
skipping lines 11110-11140, which read in the initial tracks 
if there are any. 

For initial tracks lines 11165-11175 calculate the 
appropriate incremental movements and assign speed leaders, 
through the use of the Move module. 

‘ Line 11200 initializes the DOS variable to an empty 
Str nae DOS is used to tell the system what to do if there 
is user input. 

Lines 11220-11260 drive the system until there is 
user input. All tracks are automatically updated in lines 
11225-11235, the user 1S given a chance for input dUringea 
pause between updates in lines 11240-11255. The constant 
2000 in line 11240 determines the length of time between 
updates when there iS no user input. If it is reduced, 


shortening the delay, a reasonable minimum would probably be 


108 


500. If the delay is too short the user reaction may be too 
Slow to input a selection, resulting in at least one more 
update than desired. The motions of the tracks may also 
appear too jerky and/or rapid if there is not sufficient 
delay between updates. When the system detects that the 
user has depressed a key the program branches to 11280. 

pie Trac) LeVvertLs SLOmmtne Inltralilzatwon in line 
11200 and repeats the process if the key struck was not a 
special function key, by checking for the first character to 
be an "ESCape" (CHR$(27). If a special function key was 
struck lines 11310 to 11360 branch to the appropriate 
routine to handle the request. Line 11380 reverts to 
initialization of DOS and repeats the update/delay process 
if the key was not a pre-defined function key, or upon 
completion of the service of the request. 

dl inn SEN AS 

This module defines the special function key 
routines. Keys F1-F6 are currently defined, more could 
easily be added. They should be initialized in the [Init 
module, branches to their routines provided for in the 
Tracking module, and their routines defined in this one. 

Lines 12000-12085 handle the request for a halt. 
The screen is cleared andthe function keys are restored 
before the END statement is executed. The RETURN statement 
is not really necessary. Actually only the END statement is 


needed here, but it iS good programming practice to clear 


ALU, 


the screen when finishing a graphics routine, as well as 
restoring functions keys defined. The RETURN statement is 
included for similar reasons, since this 1S a subroutine. 

Lines 12100-12190 perform the suspend/continue 
function, by simply Waiting for anoener sev sedarad sino emee 
COnNETnue: 

The hook track function 1s in lines 12200-124708 
The locate statements ensure that messages and input 
requests appear at the top of the screen. Lines 12250-12259 
check to see if there is already a track hooked, and unhook 
one if one is hooked. 

Line 12270 requests the input of the track to hook, 
lines 12275-12276 clear the request from the screen when the 
requested input has been provided. The track input as the 
one to hook is hooked in lines 12282-12290. After it has 
been hooked and its symbol enlarged (the way a hooked track 
is displayed) lines 12310-12380 display its parameters to 
the right of the display window. 

Lines 12500-12750 perform the enter new track 
fFUARGETOn, First the number of tracks is incremented in 
lines 12530-12540. Then lines 12560-12690 request for each 
of the user inputs and clear the requests when the input has 
been made (lines 12571-12574 ensure that the classification 
Will be exactly nine characters in length for symbol 


assignment). 


Bre 


After track parameter imout Lines) 12705-12717 
perform necessary calculations and matching to provide the 


rest of the track parameters and display the new track. 


Ibs Ne weced | 

This routine simply matches the CLASSS of a track 
(classification) to its appropriate symbol. Only the line 
which finds a string match will be executed, and the RETURN. 
If there is no match no symbol will be assigned, and only 
the speed leader will be displayed. This distinguishes 
unidentified tracks (Which may be unconfirmed, bogus, or 
whatever) from tracks known to exist but unclassified 


(UNKNOWN). 


Bee Cheooenelf ERENCE 

The following cross-reference of variables 1S provided 
aS an aid to modifying the code in further development. It 
is for the version of the code listed in Appendix A, _ the 


first and un-numbered version. 


NAME PURPOSE LOCATIONS 
GHASSS () classification INIT, TRACKING, 
Ol guhack Meio MAL CH - 
DATA 
SUS ) Erack 'S"eourse INIT, MOVE, 
TRACKING, KEYS, 
DATA 


IEE AE 


NAME 





SPD() 


TCOLOR( ) 


TX() 


Tyas) 


XINC() 


YINC() 


Sas) 


L$() 


SYMS$ () 


LDRS$ () 


PTS () 


hEOn( } 


HKS() 


ACTIVE() 


TRACKS 


PURPOSE 


track's speed 


track color 


Erack x Coord 


track y coord 


horizontal 
movement 


vertical 
movement 


track symbol 
track speed 
leader 


generic symbol 


generic speed 
leader 


number of points 


defining land mass 


Langdecolor 


scale to draw track 


state of track 


number of tracks 


IZ 


LOCATIONS 


INIT, MOVE, 
TRACKING, KEYS, 
DATA 


INIT, UPDATE, 
TRACKING, KEYS, 
DATA 


INIT, UPDATE, 
TRACKING, KEYS, 
DATA 

INIT, UPDATE, 
TRACKING, KEYS, 
DATA 

INIT, UPDATE, 
TRACKING, KEYS, 
MOVE, DATA 
INIT, UPDATE, 
TRACKING, KEYS, 
MOVE, DATA 


[Nt Ue DATE 
MATCH 


INIT, UPDATE, 
MOVE 


INIT, MATCH 


INIT, MOVE 


INIT, LAND, DATA 


INIT, LAND, DATA 


INIT, UPDATE, 
KEYS 


INIT, UPDATE, 
KEYS 


INIT, TRACKING, 
DATA, KEYS 


YUL 


XLR 


YLR 


CWIND 


CONTS 


XYAX 


oP 


YBOTT 


MEOL 


YXAAX 


Jil) Daa 


ARITE 


XCOL 


PURPOSE 

generic loop 
counter 

xX coordinate 
upper left-hand 
corner of Window 
y coordinate 
upper left-hand 
corner of window 
x coordinate 
lower right-hand 
corner of window 
y coordinate 
lower right-hand 
corner of Window 


window color 

# of land masses 
X coordinate 
Y-axis 


y coordinate 
Y-axis top 


y coordinate 
Y-axis bottom 


Y-axis color 
y coordinate 
X-axis 


X coordinate 
X-axis left 


X coordinate 
X-axis right 


X-axis color 
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LOCATIONS 


INIT, LAND, 
TRACKING, KEYS 


HARNESS, WINDOW, 
DATA 


HARNESS, WINDOW, 
DATA 


HARNESS, WINDOW, 
DATA 


HARNESS, WINDOW, 
DATA 


HARNESS, WINDOW, 
AXES, DATA 


HARNESS, LAND, 
DATA 


HARNESS, AXES, 
DATA 


HARNESS, AXES, 
DATA 


HARNESS, AXES, 
DATA 


HARNESS, AXES, 
DATA 


HARNESS, AAES, 
DATA 


HARNESS, AXES, 
DATA 


HARNESS, AXES, 
DATA 


HARNESS, AXES, 
DATA 


NAME 


HSCALE 
VSCALE 
H 
V 


UPDX 


DED 


UPDTS 
UPDLS 


HORZUP 


VERIUP 


COLUP 
UPGND 
COLS 

WANTS 
ALSOS 


UPD 


LAND1(,) 
LAND2(,) 
LAND3(,) 
ISLE 


CENTX 


PUREO@S@ 


horizontal scale 
vertical scale 
loop counter 
1eop eGounter 


X coordinate 
symbol center 


y coordinate 
symbol center 


symbol 
speed leader 


horizontal 
increment 


vertical 
increment 


symbol color 
Di xeliecolor 
GOlOREStE LING 


symbol string 


speed leader string 


loop counter 


land point 
land point 
land point 
loop counter 


X coordinate 
land point 
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LOCATIONS 


AXES 
AXES 
AXES 
AXES 


UPDATE 
UPDATE 


UPDATE 
UPDATE 


UPDATE 
UPDATE 


UPDATE 
UPDATE 
UPDATE 
UPDATE 
UPDATE 


UPDATE, KEYS, 
TRACKING 


LAND, DATA 
LAND, DATA 
LAND, DATA 
LAND 


LAND, DATA 


NAME 


CENTY 


MOVE 


DOS 
DO2$ 


GOS 


HOOK 


SIZECL 
A$ 


DEL 


PURPOSE 
y coordinate 
land point 


loop counter 


user input 

user input 

user input 
hooked track 
indicator 

length of CLASS$ 
user input 


delete track 
indicator 


1s 


LOCATIONS 

LAND, DATA 
TRACKING, DATA, 
MOVE 

TRACKING 


TRACKING 


KEYS 


KEYS 


Koto 
KEYS 


KEYS 


APPENDIX 0: LISTING OF TEST 10.ASM 


TITLE -- TEST OF FILLING SCREEN WITH SYMBOL 


b ) 
P STACK SEGMENT STACK 
a DW 100H DUP (OFH) 
STK TP LABEL WORD 
P STACK ENDS 


? 
P DATA SEGMENT 


SYMBOL DB 000000008, 000000008, 011111108 
DB 00000000B, 00000000B, 011001108 
DB 00000000B, 00000000B, 011001108 
DB 00000000B, 00000000B, 011001108 
DB 00000000B, 000000008, 011001108 
DB 00000000B, 00000000B, 011001108 
DB 00000000B, 000000008, 01100110B 
DB 00000000B, 000000008, 011001108 
DB 00000000B, 00000000B, 011111108 

SHAPE DB 011111108 
DB 01100110B 
DB 011001108 
DB 011001108 
DB 011001108 
DB 01100110B 
DB 011001108 
DB 011001108 
DB 011111108 

TIME DB '00:00:00.00", 1210 nue 

TEN DB 10 

DATAi DB 16 DUP (OBH) 

DATA2 DW 8 DUP (0BOH) 


P DATA ENDS 


INCLUDE PARM.DEF 
INCLUDE DOS FUNC.MAC 


; 
P CODE SEGMENT 
ASSUME CS:P CODE, DS:P DATA, SS:P_ STACK 


b 
STARE? MON AX, P STACK sset up SS through AX 
MOV SS, AX 
MOV SP, OFFSEL Sik sset up SP 
> 
PUSH DS ssave for far return 
SUB AX, AX sensure 0 offset for far rtn 
PUSH AX 
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we 


) 
9 
souter loop (L) 
9 
9 
9 


MOV 
MOV 


SUB 
IN 
PUSH 


CALL 


PUSH 
PUSH 
CALL 
POP 
POP 


MOV 
OUT 
MOV 


SUB 
SUB 
MOV 
MOV 
MOV 
NEG 


AX, P DATA ;set up DS through AX 

Ds. AX 

AX, AX *ZELrO0 AX, to save LO port 

Ale lOne ORT ;status 

AX ;save status 

CLS sclear the screen 

Gx ;save registers, then 

DX ;call the timer routine 

TIMER 

DX srestore the registers 

CX 

Alem Or sprepare IO port 

IO PORT, AL 

Sia ;set up symbol part counter 

BE. Be ‘zero BP, forsoffset 

AX, AX ;zero AX, for symbol 

AL, SYMBOL[ST] stop scan-line of symbol 

BH, L_COUNT sloop counter for loop L 

Be, LINE ;start BP negative, to 

BP sbring it to 0 at beginning 
;0f Loop 


-- for L=1i to L_ COUNT do 


begin 
fill line (L) with symbol 
end 
? 
LOOP _L: ADD BP, LINE smove offset to next line 
MOV CL, I COUNT ;set loop I counter 
’ 
ssecond loop (I) -- for I= 1 to I COUNT do 
; begin 
: write (symbol) @ line L, position I 
: end 
> 
LOOP I: MOV DE, 0 sreset scanline counter 
MOV AL. SYMBOL(S i] sget top scan-line 
MOV AH, SHAPE[DI] ssymbol shape, for clearing 
NOT AH ;space with inverse 
? 
sthird loop (J) -- for J=1 to J COUNT do 


begin 
write(symbol, scanline(J) 
end 


fe BF, 


3 

LOOP J: PUSH 
MOV 
MOV 
POP 
MOV 

3 

sinner loop 


; 
; 
b 
; 
; 
; 
LOOP K: AND 
"| TOR 
DEC 
CMP 
JLE 
PUSH 
MOV 
ADD 
MOV 
POP 
INC 
MOV 
JMP 
b 
K DONE: INC 
a CMP 
JGE 
ADD 
INC 
MOV 
MOV 
NOT 
JMP 
3 
J DONE: DEC 
~ CMP 
JLE 
MOV 
SUB 


INC 
Sule 


DEC 
CMP 
JLE 


; 
I_DONE: 


(K) 


AX 
AX, B PLANE 
ES, AX 

AX 

BL, K_COUNT 


-- for K=1 to K_ COUNT do 


begin 


negate symbol 


;save symbol, use AX to 
;reset ES to blue plane 


;restore symbol to AL 
;set counter for loop K 


AND symbol with plane (K) 


negate symbol 


OR symbol with plane (K) 


end 


ES: [BP], AH 
ES: [BP], AL 
BL 

BL © 
K_DONE 

AX 

AX, ES 

AX, PLANE 
ES, AX 

AX 

SI 

AL, SYMBOL[ST] 
LOOP K 


DI 
DI, J_COUNT 


AL, SYMBOL[ST] 
AH, SHAPE[DTI] 
AH 

LOOP J 


Gl 

Cie -0 

I DONE 
SI, 0 
BP, LINE 


BP 
LOOP I 


BH 
BH, 0 
L DONE 


Wes) 


;AND shape inv. with plane (K) 
;OR symbol with plane (K) 
scount loop K iterations 
sloop K done? 

;Yes, go to end of loop K 
;No, save symbol, use AX 
sto modify ES for next 
;color plane 


srestore symbol in AL 
smove to next symbol part 
;get next symbol part 
;repeat loop K 


;count loop J iterations 
sloop J done? 

;Yes, go to end of loop J 
;No, move to next scan-line 
sget next symbol part 

snext scan-line of symbol 
snext scan-line of shape 


;repeat loop J 


scount locp I iterations 
;loop I done? 

;sYes, go to end of loop I 
sback to first part of symbol 
;No, move to start of symbol 
;just done, then 

smove to right one byte 
;repeat loop I 


scount loop L iterations 
sloop L done? 
;Yes, go to end of loop L 


SUB 


MOV 
SE 


PUSH 
PUSH 
CALL 
Or 
POP 
POP 
OUT 


PROC 
RET 
ENDP 


INCLUDE 
INCLUDE 
INCLUDE 


ENDS 
END 


BP, X_LINE 


Siai0 
LOOP _L 


CX 

DX 

TIMER 

DX 

CK 

AX 

IO PORT, AL 


FAR 


CLS .SUB 
TIMER.SUB 
BOX. SUB 


START 


ie? 


;No, move to start of 
slast character, then 
;reset symbol part counter 
;repeat loop L 


;save registers, and 
‘Calle k Lmed 


;restore registers 


;restore LO port status 


APPENDIX PR: 


LISTING OF TEST 3.ASM 


TITLE -- EXPERIMENT 8 -- TEST BOX SUBROUTINE 


; 
P STK 


STK_TP 
P_STK 


P DATA 
TIME 
TEN 


SEGMENT STACK 
100H DUP (00H) 
WORD 


DW 


LABEL 


ENDS 


SEGMENT 


DB 
DB 
DB 
ENDS 


INCLUDE 
INCLUDE 


SEGMENT 
ASSUME 


MOV 
MOV 
MOV 


PUSH 
SUB 
PUSH 


MOV 
MOV 


SUB 
IN 
PUSH 


CALL 


PUSH 
PUSH 
CALL 
POP 
POP 


MOV 
MOV 
MOV 
MOV 


'00:00:00.00', 13, 10, '$' 


10 


ZOH DUE MG?) 


PARM. DEF 
DOS _FUNC.MAC 


CS:P_ CODE, DS:P DATA, SS:P_ STK 


AX, 
SS: 
SP, 


DS 


DX 


P_STK 
AX 
OFFSET STK_TP 


AX 


AX 
10 PORT 


TIMER 


DX 
CX 


BH, 
AH, 
BL, 
AL, 


Y_ START 
Y STOP 
X START 
X_ STOP 


120 


;save IO port status 


;clear the screen 


svertical start line 
;vertical stop line 
shorizontal start column 
shorizontal stop column 


MOV 
MOV 


CALL 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CALL 


GMP 
JE 
MOV 
CALL 


? 

X AXIS: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CALL 


CMP 
JE 
MOV 
CALL 


PUSH 
PUSH 
CALL 
POP 
ROP 
POP 
OUT 


PROC 
RET 
ENDP 


INCLUDE 
INCLUDE 
INCLUDE 


ENDS 
END 


CL, COLOR 
CH, OFFH 


BOX F 
BH, Y_START 

BL, GRIDX_START 
AH, Y_STOP 

AL, GRIDX_STOP 
Clpmc COLOR 

CH, OFOH 

BOX F 


Chad 
X AXIS 
CH, OFOH 
BOX _F 


BH, GRIDY_ START 
BL, X_START 

AH, GRIDY_ STOP 
AL, X_STOP 

CL, G COLOR 

CH, OOH 

BOX _F 


Gin, 0 
OVER 


CH, OFFH 
BOX F 


IO PORT, AL 


FAR 


BOX.SUB 
CLS.SUB 
TIMER.SUB 


START 


;COLOR box 
;solid pixel line 


;draw box 


;draw Y-axis 


;to blank out space 


aif orid pilack, 

sit is already drawn 
shalf-byte width 
sactually draw Y-axis 


;draw X-axis 


;to blank out space 


f1f Grid black, 

sit is already drawn 
;solid pixel line 
sactually draw X-axis 


;restore IO control port 


EZ. 


APPENDIX Q: LISTING OF TIMER.SUSB 
this is a subroutine which gets and converts the time, 
; then displays it 
[INPUTS none 
OUTPUTS: the time is displayed on the screen 
FLAGS: none 


REGISTERS: none 


tJ we we we we we we we we we 


IMER: GET TIME 
CONVERT CH, TEN, TIME 
CONVERT CL, TEN, TIME[3] 
CONVERT DH, TEN, TIME[6] 
CONVERT DL, TEN, TIME[9] 
DISPLAY TIME 
RET 

; 

; end of timer subroutine 


e 
bd 


yas 


APPENDIX R: LISTING OF BOX.SUB 


; wa-ohaeqls eh topx p whiqtSuhihost osueplraipo posp hl ebs wuossl 


> 

COMMENT * 

INPUT: BH = vertical line to start box on (0 - 23) 
BL = horizontal column to start box on (0 - 79) 
AH = vertical line to stop box on (1 - 24) 
AL = horizontal column to stop box on (1 - 80) 


NOTE: if AX < BX an error will result 
IO control port needs to be saved prior to calling this 
subroutine 
OUTPUT: generates a colored box on the screen 


FLAGS: none returned 


REGISTERS: used as noted above, preserved 


el 
4 


3 
BOX _F: PUSH AX ;save all registers used 
PUSH BX 
PUSH CX 
PUSH DX 
PUSH DI 
PUSH Sak 
PUSH BP 
PUSH DS 
b 
SUB DX, DX 3;zero DX 
MOV DH, BH ;get start line 
SHEL DK, sconvert to necessary offset 
SHL De 1 
SHE DX, 1 
MOV DEG BL srest of start offset 
MOV SI, DX ;starting offset 
? 
SUB AL, BL show many bytes across 
MOV DL, AL ;DL <--- horizontal count 
b 
SUB AH, BH show many Lines down 
MOV DH, AH ;DH <--- vertical count 
3 
CMP CLa4 ;does color include green? 
JGE GREEN ;sYes, go to green 
CMP CE 2 sNo, does it include red? 
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3 
RED: 


5 
CYAN: 


; 
YELLOW: 


3 
BLACK: 


; 
PREP: 


JGE 
JCXZ 
MOV 
MOV 
MOV 
JME 


MOV 
MOV 
SUB 
JNZ 
MOV 
JMP 


MOV 
J jiglisy 


MOV 
MOV 
SUB 
JNZ 
MOV 
JMP 


CMP 
JNE 
MOV 
JMP 


SUB 
JNZ 
MOV 
JME 


MOV 
MOV 
MOV 
JMP 


MOV 
MOV 
MOV 


OUT 
MOV 
SUB 
MOV 
XOR 
MOV 
XOR 
MOV 


RED 
BLACK 

AX, OCOOOH 
Doe Ak 

AL, 38H 
PREP 


AX, ODOOOH 
DS, AX 
Clea 
MAGNTA 

AL, 68H 
PREP 


AL, 28H 
PREP 


AX, OEOOOH 
DS, AX 

CL, 4 

CYAN 

AL, 58H 
PREP 


Ciut 
YELLOW 
AL, 18H 
PREP 


Glew? 
WHITE 
AL, 48H 
PREP 


AX, OCOOOH 
DS, AX 

AL, 08H 
PREP 


AX, OCOOOH 
DS, AX 
AL, 78H 


IO PORT, AL 


Perl 
Gx 6x 
CL, BL 
BP, BP 
DL, DH 
DH, DH 
BP, DX 


sYes, go to red 
;if CL=0, handle black 
;No, handle blue 


shandle red, magenta 


sis color red? 
;No, go to magenta 


shandle green, cyan, yellow, 
sand white 

sis color green? 

sNo, check for cyan 

;sYes, handle green 


21S Colon cyan. 
;sNo, try yellow 
;Yes, handle cyan 


sis color yellow? 
;No, must be white 
;Yes, handle yellow 


;horizontal count 


svertical count 
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; 
LUPE: 


; 
FINISH: 


we 


MOV 
PUSH 
PUSH 


MOV 
MOV 
INC 
LOOP 


DEC 
JZ 
POP 
POP 
ADD 
PUSH 
PUSH 
JMP 


POP 
POP 
POP 
POP 
POP 
BOP 
ROP 
POP 
POP 
POP 


RET 


S20) SNE 
ES:[SI], AL 
Si 

LUPE 


BP 
FINISH 
x 

Sm 
See 
SE 

Cx 
LUPE 


CX 
Sf 
DS 
Be 
si 
DE 
DX 
CX 
BX 
AX 


) 
; end of subroutine to draw box 
; 


iz 


;line spacing 


( ) we we we we we we we we we we 


tc 
~Y 


we 


DELA: 


we we we 


INPUT: none 


OUTPUT: none 


FLAGS: none 


PUSH 


IN 
PUSH 


MOV 
OUT 


IN 
AND 
OUT 


IN 
AND 
OUT 


MOV 
NOP 
LOOP 
IN 
OR 
OUT 


PO: 
OUT 


ROL 


RET 


APPENDIX 8S: 


REGISTERS: none 


AX 


AL, OD8H 
AX 


AL, OFH 
OD8H, AL 


AL, ODBH 
AL, OF7H 
ODBH, AL 
AL, OD9H 
AL, OF7H 
OD9H, AL 
CX, 6680 
DELA 

AL, OD9H 
AL, 08H 
OD9H, AL 


AX 
OD8H, AL 


AX 


end of clear screen routine 


LISTING OF CLS.SUB 


subroutine to clear the screen, ZENITH 


;save register used 


;prepare to save I0 control 
sport status, and save it 


;blank the screen 


;SET = 0 


sactivate CLRSCRN 


swait 


;de-activate CLRSCRN 


;restore IO control port 


;restore register 
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APPENDIX T: LISTING OF DOS FUNC.MAC 


; this is a file of MS-DOS 2.0 function macros 


b] 
; get_time is a macro which puts the time in CX and DX 


; 
GET TIME MACRO 


MOV AH, 2CH 
INT 21H 
ENDM 


; 

; convert is a macro which converts the value parameter into 
; a number in the base parameter system, and puts the 

; converted value in the destination parameter location 


3 
CONVERT MACRO VALUE, BASE, DESTINATION 
LOCAL TABLE, START 


IMP START 
TABLE DB "0123456 789ABCDEF" 
START: MOV AL, VALUE 
XOR AH, AH 
XOR BX, BX 
DIV BASE 
MOV hy LNe 
MOV AL, CS: TABLE[BX] 
MOV DESTINATION, AL 
MOV BL, AH 
MOV AL, CS: TABLE[BX] 
MOV DESTINATION[1], AL 
ENDM 


; 

; display is a macro which displays a string located in 

; Memory at the location passed in the parameter string, 

> and the string must end with the ASCII code for '$', 24H. 


) 
DISPLAY MACRO STRING 


MOV DX, OFFSET STRING 
MOV AH, 09H 

INT 21H 

ENDM 


we 


v7 


APPENDIX U: LISTING OF PARM.DEF 


; file of parameter definitions 
5 

; i/o port address 

IO PORT EQU OD8H 


? 
shorizontal(X), vertical(Y) start/stop corners of a box 


3 

X START EQU 4 
X STOP EQU 58 
Y START EQU 6 

Y STOP EQU 243 


; 
scolor of the box 


COLOR EQU 3 


? 
shorizontal(X), vertical(Y) start/stop corners of boxes that 
;swill serve as grid lines 


2 

GRIDX_START EQU 18 
GRIDX_STOP EQU 19 
GRIDY START EQU 17 
GRIDY_ STOP EQU 19 


3 

scolor of the grid lines 
> 

G COLOR EQU 4 
, 


;constants for loop counts and symbol location shifting 


2 
LINE EQU 1024 srequired to shift one vertical line 
;on the screen 


; 
slength of line in bytes 


? 

X LINE EQU We 

B PLANE EQU OCOOOH ;start address of blue plane 

I_ COUNT EQU 80 

J COUNT EQU 2) ;counter for sloop J 

K_ COUNT EQU 3 ;counter for loop K 

L_ COUNT EQU 20 ;counter for loop I 

PLANE EQU 1000H saddress difference between color 
;planes 

HORZ EQU 1 shorizontal space shift 


VERT EQU 128 ;vertical space shift 


bd 


IPAS: 


;Size of one character, nine scan-lines 


3 
SIZE  EQU 1152 
HITE  EQU 1280 
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APPENDIX V: USER'S MANUAL FOR ASSEMBLY PROGRAMS 


A. HOW TO USE THE MACRO-86 PROGRAMS 

The Macro-86 assembly language programs included in this 
thesis have been assembled and linked. To run any of the 
tests simply type the filename at the system prompt. The 
file READ.ME on each distribution disk describes what 


each file is named and what it does. 


B. UNDERSTANDING THE CODE 

The internal documentation explains the Macro-86 code 
step by step. We will not indulge ina line by line 
explanation as Appendix N does for the BASIC code. This 
Appendix will discuss some of the reasons behind the code in 
the test file, Appendices O and P. 

We set up our own segments for stack, data, and code 
because we are using the EXE format rather than the COM 
format. The EXE format 1S necessary to provide direct 
control of the video random access memory (VRAM) addresses. 

The first entries in the data segment are the bytes 
which define the test symbol. For these tests we did not 
establish complete symbol tables and perform table look-ups, 
as we were interested in establishing simple timing bases 
for efficiency comparisons with the BASIC prototype. SYMBOL 


is defined in binary form to allow visualisation of its 


130 


GONSeELEUeNE parts. The ~ first byte on each line of SYMBOL 
defines its blue plane, the second Phemmeamanid the third the 
green planes. This initialization may alter the shape or 
color of the symbol. The symbol may even be constructed of 
multi-colored parts. This would not matter in a monochrome 
system, of course. Since the microcomputer laboratories 
currently operate only monochrome monitors, this test symbol 
is defined in the green plane only. 

The shape of the symbol is next defined separately. 
This is necessary because a non-white symbol possesses a 
shape which differs in each color plane. The test symbol is 
a prime example -- its shape in the green plane matches 
exactly that of SHAPE, but it has no shape in the red and 
blue planes. 

In order to maintain the purity of the background and 
symbol colors, a space must be cleared for the symbol in all 
three color planes (on a color system, or a monochrome 
system with the color option installed) to all zeroes. The 
way in which color is generated (superimposing three pixels, 
one of each color plane) drives this necessity. 

Figure V.1 illustrates the problem. ines Gurce V1 eine 
background color planes are represented in part (a), the 
test symbol in part (b). Parts (c), (d) and (e) of the 
Figure exhibit the results of an OR, AND and XOR operation, 
respectively, between the color planes of the symbol and 
those of the background. None of the results produces’ the 


correct result of background and symbol, shown in part (f). 
Real 


COLOR PLANE 


BLUE RED GREEN 


(a) Background 










(f) Desired Results 


Figure V.1 Results of Operating with Symbol Directly 


eZ 


Pugqure V¥.2 allustrates ther solution. The background 
planes are in part (a), as before. Part (b) is the shape of 
the symbol inverted and stored in each plane, creating a 
mask which is ANDed with the background to produce part (c). 
This mask is created by the SHAPE stored in data. By 
performing the AND operation of the background and the 
inverse of the symbol shape, a screen area of background 
with black where the symbol will appear is created (c). 
Part (d) is the actual symbol, which will appear differently 
in each color plane unless it is all white. When (c) and 
(d) are OR'd together the correct background/symbol colors 
appear in part (e), matching part (f£). 

The PARM.DEF file which is included next is a file of 
defined constants. During the development process the 
collection of all constants in one separate file allowed 
Simpler experimentation and debugging. 

eiocwer = tile, DOS VBUNG@NAC, 1s included after PARM.DEF. 
This is a file of Microsoft Disk Operating System Function 
Macros (hence the name and the extension). These files may 
be found at the end of chapter four in Reference 4. They 
are macros that perform some of the basic MS-DOS functions. 

The first three lines of the code segment (after the 
ASSUME statement) initialize the stack segment register and 
the stack pointer. The AX register is used aS an inter- 
mediary, because the segment registers should never be 


written to directly. 
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COLOR PLANE 


BLUE RED GREEN 





(b) Symbol Shape, Inverted 





(£) Desired Results 


Figure V.2 Results of Operating with Shape and Symbol 
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After that, three lines prepare for a graceful exit. If 
a Macro-86 program is ended with a far return, and the stack 
has had the proper addresses saved on it for this type of 
exit, a simple return to the operating system is effected. 
The preparation of the stack involves saving the DS 
register, and an offset of zero. Having saved the DS 
register for the return, the next two lines initialize it to 
access our own data segment. 

It is not absolutely necessary to include the next three 
inmnes Of code. They read and save the input/output port 
status. This is our standard programming practice of 
utilizing the stack to save values (such as status 
registers) that our program modifies, in order that they may 
be properly restored upon completion of our program's 
execution. 

After clearing the screen, the registers involved in 
creating a window on the screen are loaded with the 
necessary values. The header at the top of the BOX.SUB file 
describes what values are needed, and how they are used. 

Next we call the timer routine, in order to measure the 
time efficiency of the routine which draws the symbols. The 
input/output port is prepared by the next few lines of code 
to allow our symbol-drawing operation. 

The next six lines of code, from SUB BP, BP through NEG 
BP, make preparation for entering our outer loop. The base 


pointer (BP) register is initialized to a negative 
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value so that the outer loop may begin each repetition by 
incrementing a value equal to LINE and still begin the first 
iteration at a value of Zero. The value of zero is 
equivalent to the upper left-hand corner of the screen. 

Labels identify the statements which make up the tops of 
each of the iterative loops. The internal documentation 
identifies the initialization required for each loop. The 
order of steps could be modified to save a few operations 
involving the accumulator (AX). We elected to write the 
code this way for clarity of purpose. 

The inner loop, LOOP _K, first performs the AND 
operations discussed earlier, to clear a space for the 
symbol. Then the OR operation described is performed, to 
Write the appropriate plane of the symbol into the proper 
color plane. The loop is repeated for each color plane, 
making use of the ES register to point to the proper 
location in VRAM., 

The third loop, LOOP J, repeats "the timer jeep Tor meaem 
scan line of the symbol. LOOP 2 fills each line wien 


symbols, and LOOP L £ilisetne speciimedsnumber Of Vimess 


CC, MOTE YaNiecyTHE Cen: 

The easiest changes are to the symbol. Its shape is 
modified by changing the binary definition of it within the 
data segment of the driver program. Corresponding changes 


should be made to the bytes defining SHAPE in the same 
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program. Defining the symbol in different color planes 
and/or combinations of color planes modifies its color. If 
the binary representation differs from color plane to color 
plane a multi-colored symbol is possible. However, the 
Shape is singly defined with the current program version, 
and the colors desired may not be the ones displayed. The 
actual symbol display will depend upon background. All 
other simple changes, those not affecting the program logic 
but just modifying the display, are made by altering the 
values of the constants in the PARM.DEF file. Those are 


discussed in the next section. 


D. CONSTANTS 
The constants defined in the PARM.DEF file (Appendix U) 
determine the display characteristics. They are listed in 


tabular form below, along with their use. 


NAME PURPOSE 





PORT port address for Zenith input/ 
Output port status register 


X START X coordinate (in pixels) of left 
side of window 


X STOP X coordinate (in pixels) of right 
side of window 


Y START y coordinate (in pixels) of top 
of window 


Y STOP y coordinate (in pixels) of bottom 
aa of window 


COLOR color of window 


i 


NAME 


GRIDX START 


GRIDX_STOP 


GRID estan T 


GRIDY_STOP 


G COLOR 


LINE 


X LINE 


B PLANE 


I_COUNT 


J_COUNT 
K COUNT 


L_ COUNT 


PLANE 


HORZ 


VE 


SIZE 


BITE 


PURPOSE 


X coordinate (in pixels) of 
left of vertical reference grid 


x coordinate (in pixels) of 
right of vertical reference grid 


y coordinate (in pixels) of 
tig 2 ee... aC, VON IGS Cia mm 


a 


y coordinate (in pixels) of 
bottom of horizontal reference grid 


color of reference grid 
address modification required to 
shift down one line on the screen 


number of right-most byte on one 
character line of the display 


address of blue color plane in 
VRAM 


number of symbols to write 
horizontally 


number of scan lines per symbol 


number of color planes 


number of lines to fill with 
symbols 


hex difference between color 
plane addresses 


number of bytes to shift right 
While filling symbols in 


difference in address between 
top scan-line address and 
bottom scan-line address of 
the same symbol position on 
the screen 

not used 


not used 


IE Bite 


Pitot Ore REP ERENCES 


Z-100 User's Manual, Zenith Data Systems Corporation, 


ee. 


Microsoft MS-DOS Version 2, Zenith Data Systems 


Corporation, 1984. 
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Systems Corporation, 1984, 


ie 
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